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en vrac, l'activité a été grande: 

PPC L (Lausanne) Voll N°1 Juin 83 (reçu début sept): 
Sous jacquette Rhodoid, contenu en grande partie imprimé grâce 
a un HP7S5 et son imprimante 80 colonnes 82905. A certainement 
$té préparé avant la sortie par HP du formatteur de textes, qui 
devrait grandement faciliter le travail de l'éditeur. Ce qui est 
sûr, c'est que dés que nous serons nous aussi équipés d'un 75 
et d'une imprimante valable (bientôt, jèspère), les possesseurs 
de 75 n'auront plus besoin de machine à écrire pour nous envoyer 
leurs articles. 30 pages sans réduction. 


trés beau, 


Hewlett-Packard Journal, Juin 1983, consacré au HP75C. 


PPC-J USA: numéros de “ai (VIONA) et Juin (VION5) et un numéro 
double (Mai-Juin, V2N3) du Computer Journal of PPC. Trop copieux 
Vro N& 


pour pouvoir être résumé. + Juill 
Prisma Juillet 33 toujours aussi beau 


JPC journal du Paris 
(48 pages non réduites) 


Chapter, VIN3 de Juin et VINA de Juillet 


Australie: pas encore de PPCTN, mais au même format la notice 
de Assembler 3, un jeu d'EPROM pour le microcode. 

"Votre Ordinateur" 39 rue de la Grange aux belles 75484 Paris 
Cedex 10, la version ordinateurs familiaux de 1l'OI et l'OP parait 
le 15 Septembre, Bimestriel. tiré à 180000 exemplaires (!!1 l'OI 
et l'OP tirent à 80000). 


2'Angleterre, le “Member Pack, liste des 
ordinateur avec divers classements, 


RD CE EEE 


adhérents traitée sur 


T33 Redon, le 17 Juin 83 


Cher Jean-Daniel, 


Tout d'abord, je vais corriger une vetite erreur 
de mon programme LEM que m'a ææ gentillement fait 
remarquer François Boisson (%4097T84) il y a dé jà 
un petit bout de temps (mais j'avais oubliés de te 


le dire). Ce orgm a été vublié dans PPC-T n°3 p1l9. 
Yoici la correction que m'a provosé François : 
Faire gto.006 sf 06 
gto.053 O x=y? cf 06 x<>y 
gto.069 fe? 06 gto 58 
gto.075 1bl1 59 
gto.483 1b1 58 sf 06 cela TALT: 
arcl x + M aview pse 
gto 59 
Pour vérification, vous devez avoir comme. 


dernier vas : 492 END 


Dans l'article intitulé "Normalisation et X-Fonctions!" 
j'avais dit que la fonction SAVERX normalisait les regis- 
tres lors de son exécution.En fait,une étude plus appro- 
fondie montre que cette fonction ne normalise que le pre- 
nier et le dernier registre de chaque bloc à sauvegarder! 
Ceci explique pour quelle raison cette fonction estutili- 
sée dans les programmes ‘SA! at "'RA! de MSYNTHET IC PROGRAM 
“ING “ADE EASY"... 

Il n'en reste pas moins que cette fonction est délicate 
à utiliser,et j'espère que vous me pardonnerez ma nrécé- 
dente erreur... 


J.Boschat(T71+P51) 


sur le marché 


Pratique du HP75C par H. Lilen 
(éditions de la radio) 

Ecrit par l'auteur maison de l'éditeur un ouvrage 
destiné à initier de complets débutants à la pratique élémentaire 
du HP75. M'a paru valable pour ceux (nombreux) qui n'ont jamais 
fait de Basic.(ceci dit, je n'ai pas de 75 et donc je ne sais 
pas Si il y a une amélioration par rapport à la notice). 


109 Programas para ordenadores personales y calculadoras 
R. Farrando 

Bien qu'en espagnol, facile à comprendre même pour 
moi qui ne connais pas cette langue. Destiné par l'auteur essen- 
tiellement aux lycéens, a comme originalité de proposer pour chaque 
(essentiellements mathématiques) des programmes pour plusieurs 
microordinateurs, HP, Ti et Basic. Détails sur demande , disponible 
au club, 


An easy course in programming the HP41C par Ted Wadman et Chris 
Coffin 

Ouvrage d'initiation et d'introduction à la HP 41C, 
mais en anglais. Y a-t-il assez de clients pour envisager une 
traduction? Disponible au club courant Octobre. détails sur demande 





éditorial 





Ce numéro de PPC-T est un peu particulier, il comprend 
une partie "administrative et de service" trés développée et de 
nombreux programmes. C'est tout. Les Applications, réactions et 
autres rubriques viendront dans le n°8 à paraitre prochainement, 
je n'ai pas voulu retarder la parution en faisant un numéro double 
puisque celui-ci est prêt, mais en fait le N°8 sera la suite 
du N°7. 


Je n'ai pas eu beaucoup de courrier pendant les vacan- 
ces, mais toutes les lettres sont favorables à une amélioration 
de la reliure. Comme J'ai du mal à avaler un doublement de la 
cotisation pour deux agraphes, je vais essayer une formule qui 
n'avait pas eu grand succés quand je l'avais proposée il y a quel- 
ques temps, mais peu d'entre vous ont pu l'expérimenter. Il s'agit 
de paraitre en format moitié moins grand (tous nos problèmes vien- 
nent du fait que les grosses photocopieuses ne passent que du 
A4) plié en deux et donc agraphé au centre. 

Outre l'amélioration de la reliure, ce format nous 
permettrai de travailler avec des originaux au format 21 x 29,7 
(A4) pleine page et non pas avec les 14 cm de large imposés par 
l'existence de deux colonnes. De plus la mise en page sera un 
peu facilitée, Bien sûr il y aura alors le double de pages (64), 
votre journal sera un petit livre ! 

Si j'ai l'accord de l'imprimeur, le N°8 sera donc 
de ce format et vos avis diront s'il faut poursuivre ou non. 


L'opération souscription MLDL se solde pour l'instant 
par Un échec. Quand vous lirez ces lignes, et à moins d'un mira- 
cle, tous les chèques auront été retournés. 

La raison est simple: Le premier fournisseur, initia- 
lement pressenti s'est lamentablement défilé. Je me suis alors 
tourné vers la SICAPE qui m'a présenté plusieurs prototypes cor- 
rects en ordre de marche. La livraison devait avoir lieu dans 
les tous premiers jours de Juillet. A ce moment un coup de télé- 
phone d'Etienne Poupée m'informait qu'une erreur de livraison 
faisait qu'un circuit important était manquant. J'-i €_uc retourné 
les chèques qui étaient soumis à la limite de fin Juin. Mais les 
appareils devaient être disponibles incessamment. A mon retour 
de vacances, rien at malgré deux coups de téléphone à la SICAPE, 
pas de nouvelle. 

-e n'ai été que moyennement étonné. 
soit pas possible de passer du prototype à 
delà de ma compréhension. 


Mais qu'il ne 
la présérie reste au 


Le projet n'est pas abandonné pour autant, mais il 
nous faut maintenant trouver un fournisseur plus sérieux. Je vous 
tiendrai au courant, bien sûr. 
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CONTRE-ATTAQUE De 
J'ai trouvé dans un numéro spécial de Science & 
Avenir (N°35) et dans Ll'OP N°3 p-37, un jeu dont le 
principe m'a plu. J'ai refait le programme et le voici; 
il ne nécessite aucun périphérique, et les instructions 
synthétiques peuvent être remplacées par leur équival- 
ent (RCL baLBL, STO b=GT0...). L'exemple proposé à La 
fin du listage permet de Comprendre la règle du jeu. 
Des bombes tombent sur vos usines, vous devez les 
détruire avec le ta.on situé à l'altitude l, avant 
qu'elles n'atteignent le sol. L'écran du Calculateur 
indique, entre deux parenthèses, l'altitude d'une 
bombe dans chaque colonnes, un "-" s'il n'y a rien, et 
la position du canon entre quatre points; à droite se 
trouve le total des bombes qui ont touché vos usines. 
Les bombes apparaissent de façon aléstoire à l'altitude 
9, pour les détruire il faut placer le canon sur la 
même colonne puis tirer ou bien, si la bombe se trouve 
à la même altitude (1) et dans une case adjacente au 
canon, il suffit de placer celui-çi sur la bombe, ce 
qui économise un tir. Trois touches sont utilisées en 
mode USER pour agir sur le canon : £+ déplacement à 
gauche, 1/x déplacement à droite, x@y tir : cette 
disposition permet de tenir la machine de la main 
gauche en appuyant avec le pouce. L'écran est cyclique, 
c'est à dire qu'un déplacement à gauche alors que vous 
êtes déja dans la case la plus à gauche, vous fait 
passer à l'autre bout à droite, et inversement. Aprés 
avoir lancé le programme (SIZE 15) on vous demande une 
graine pour le nombre aléatoire, entrez n'importe quoi 
(# KT); R/S ; on vous demande alors les options: si 
vous en voulez (le jeu est plus difficile) armez des 
drapeaux : 
00 La machine ne s'arrète pas, vous devez agir 
durant une pause 
O1 Le jeu s'arrète automatiquement lorsque 4 bombes 
au lieu de 8 ont touché vos usines 
02 Pour chaque colonne il apparait une bombe en 
mayenne l fois sur 4 au lieu de 1 sur 7 
03 Les installations couvrent les 8 colonnes au lieu 
de seulement 2-3-5-6-8 
04 Le jeu s'arrète à 100 bombes sur les usines (donc 
pratiquement sans fin), prioritaire sur O1. 


R/S et l'alerte est déclarée. Au bip vous voyez le canon 
à gauche et une bombe dans une des autres cases, à vous 
de commander le canon (vous pouvez ne rien faire,en 
appuyant sur R/S).Ensuite l'affichage de la situation 

se fait en deux temps, d'abord les explosions et dépla- 
Cements du canon éventuels, ensuite, déscente des 

bombes d'une case et autres explosions, puis vous 

pouvez de nouveau agir. Presque tout est comptabilisé 
oour le calcul de la cote de force finsle. Une bombe 
détruite par un tir vaut 1 point, et 2 si c'est par un 
déplacement du canon sur 1a bombe. Dans l'option CF 03 
il faut se souvenir de l'emplacement des 5 cases-usines. 
Pour un nouveau jeu, faire simplement R/S après affichage 
de la cote, 


Avec de l'entrainement vous finirez par trouver 
ce jeu lassant (peut-être pas sur machine "accéléréae") 
il vous rests alors la possibilité de modifier le 
programme -utiliser la programmation synthétique ou 
le module X-F pour manipuler les drapeaux -faire 
arriver les bombes à une altitude variable, non limitée 
à "9" -introduire un menu demandant les options 
-agir per "rafale programmée", par exemple introduire 
GGFDF et la machine fait 5 tours de jeu en utilisent 
successivement les commandes prévues -imprimer les 
situations comme pour l'exemple, mais çela ralentira 
le programme. 

Contenu des rsgistres mémoire : 


RQQ graine 
RO1 à G8 contenu des colonnes 
R99 caractère "-" 
R1Q à 13 compteurs 
Al4 position du canon TREDEZ b. (T 120) 
En supplément gratuit, un petit programme qui 
fait cou-cou : Gi "F9P4cdb" 04 SF 25 
82 LBL 01 05 SF 99 
@3 AVIEW 86 GTO G1 
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315 nctets 
AieLRL 


CF 29 
FIx à 


D 99 
A 8 


S+LBL a6 
PROMPT 
STO aa 
CLYX 

STO 19 


= DD99%: 
D00VA 


11 PROMPT 
12 8 

13 STO 14 
14 7 

15 FS? 91 
16 3 

17 FS? 94 
18 99 

19 ES 

28 - 

21 STO 11 
22 _ 
2:3 9 

24 RCL b 
25 ASTO 


26 DSE Y 
7 STO b 


28 "ALERTE" 


29 AYIEW 
39 TONE 8 
x1 SF 25 
4x2 SF 99 
33 SF aSs 
34 XEQ 91 
35 STO 12 


36 9 

37 STO IND 
z 

38+LBL 93 
39 XxEQ 95 
49 RCL 14 
41 E 

42 SF 27 


43 TONE 8 
44 FC? 98 
45 PROMPT 
46 PSE 

47 “RATE“ 
48 AVIEU 
49 TONE 3 
59 GTO 99 
Si+LBL A 
se » +6" 
53 - 

54 X=97 
55 8 

56 GTO A3 
S7+LBL BE 
se = 

59 + 

68 X>vT? 
61 € 


“C—-g" 
————— as 


“ALEA?- 


*“OPTIAN? 


IND 


D+" 


62+LBL AZ 
6€ AVIEUW 

64 STD 14 
RCL IN 


D 
ü 


X 


E 
Kæv? 


Dh 
2 UT 


VBeLBL F 
71 “ TFEU 
72 AVIEMW 
73 ST- 14a 
7d4elBL 93 
75 _" 

76 ASTO I 
14 

7F 2 

7B ST+ 1a 
79+LBL a8 
8A CF 27 
81 *XEGQ a5 
82 STO 13 
RZ+LBL 98 
84 RCL IN 
13 
8S SIGN 
86 x=a7 
37 STO 41 
88 DSE IN 
13 

89 STO a9 
939 FS? 43 
91 GTO A7 
92 RCL 13 
95 X=Y? 
94 GTO 98 
25 4 

96 X=Y7 
97 GTO a8 
98 K<D>Y 
29 + 

199 K=Y7 
191 GTO a8 
1a2+LBL 97 


13 ISG 11 
144 GSTO 68 
145 “TOTAL 
1A6 ARCL 1 
147 AVIEW 
188 BEEP 
1@9 RCL 1a 
11A RCL 12 
111 - 
112 S49 
113 * 
114 “COTE=" 
115 ARCL X 
116 “Hz” 
117 GTO A6 
11ReLBL A8 
119 k" 
129 ASTO I 
13 
121 GTO as 


exemple 
C4-98-2:%x: 


Je: vous envoie aussi un 


programe de La mémoire 
un GU/R &L doit 
L'oniginalitée de 


Le non qu'il perte 


à? GTOQ 43 
69 GTO ag 


122eLBL a1 


125 7 
124 FS? 92 
D 125 4 
126 RCL 99 
127 R-D 
128 FRC 
129 STO 909 
1: 
131 INT 
qe 132 E 
133 + 
134 E 
135 FS?C 95 
136 RTNH 
ND 137 K<V? 
1218 GTO 9a 
139 ST+ 12 
149 9 
141 STO IND 
17 
142+LBL A9 
143 DSE 13 
144 GTO 98 
D 145 GTO 93 


146eLBL 95 








147 1,008 
148 STO 13 
149 Ce 
D 159eLBL A4 
151 RCL 14 
152 RCL 13 
153 INT 
154 X=v7 
155 “his 
156 ARCL IND 
x 
157 X=v? 
158 “+: 
159 RCL IND 
x 
169 SIGN 
161 X+97 
162 GTO 94 
167 RCL 99 
164 STO IND 
13 
æz* 165+LBL 94 
2 166 ISG 13 
167 GTO A4 
168 “HD” 
169 RCL 11 
17@ INT 
171 ARCL x 
172 AVIEW 
173 8 
174 END 
a ns à À 
a S CAUS 16 1 
Ce .. 
ë. » 7 
ND “ ... . . 
4 W'ccss.: 
3 . h: 
2 . we *! 
ni f Ssesee &* 
—) A ‘HM EME 





permettant de Lancer un 


PRE PUR 
d'extension. En réalité lorsque vous faites 
apparaitre en premier Le programme à éxécuten. 


ce programe est qu'il peut être utilisé 
Comme 40U4-progumme Où Comme programme principal. Dans tous Les 
cas La pile des retours de sousprognamesest medifiée de telle 
Laçon que deux niveaux de 4vus4-prsypummes sont conserves. Je n'en 
ai janle que deux can en moyenne j'ai au maximun deux ap . 
vient du ‘ait que je l'utilise afi 

de proyrammex La 4/ en réveil matin 


Mn JL Gabriet TI 
#4 chemn de Barberet 
670 si URS 187 3-7 7-%) 
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B1eLBL “REVEIL- 


92 CLA 
83 RCL b 
f4 KO) LT 
A5 -2 

86 ARNT 
97 ATOX 
88 ATOX 
9 “++ 
18 XO LC 
11 ST0 b 
12 .END. 
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PROGRAMME : P REGISTRES 


” 
ren EnEnnnNnNNNNNINNNNENINN 


Lorsque j'utilise un programme de résolution de 
triangles sur calculette, je trouve fastidieux de 
déterminer quel est le cas de résolution, d'adapter 
ensuite à une figure type. 


C'est pourquoi j'ai créé un programme qui 
détermine seul le cas type et indique toutes les 
solutions (aucune, une ou bien deux). Il suffit 
d'introduire les noms des sommets et le programme 
demande ensuite clairement les 6 éléments. 


Lorsque un de ces éléments est inconnu, on le 
remplace par la valeur 0. S'il y a surabondance ou 
insuffisance de données, vous serez rappelé à l'ordre 
Par une nouvelle demande d'introduction (ex. : dans le 
cas où l'on introduit 3 angles). 


I PARTICULARITES DU PROGRAMME 


Certains remarqueront que 7 lignes semblent 
bizarres : ce sont les lignes suivantes ainsi affichées par 
la machine : 


C6" 8-38 1C 08 00 60 CC A4 RO 


07 RCL M , QC 75 
C8 S'O 4 : 91 TE 


62 REL 4 

420 5 'O à 

454"+-8 77 69 

456" 1888 01 92 04 "O0 co «cc 


Pour les personnes connaissant |a programmation 
synthétique, j’ai ajouté les codes hexadécimaux de ces 
instructions. 


Ces lignes tiennent un peu du «dynamitage» et 
requièrent une procédure spéciale pour être introduite 
dans le programme. Dans un premier temps, je vais 
décomposer cettè procédure pas à pas et je vous 
demanderai de |a suivre scrupuleusement, Vous 
pourrez ensuite insérer le reste du programme comme 
vous le faites habituellement. 





ROW : 1 
ROW:E Nan EEEEEnEEnnnnnnnnnnTEnTEnnEUnNNEnNl 
ROW: 3 SEEN EnnnnU EE EnEUNUNNNUN 
OM Enr EnEnnnnnnEnnnnnEnNNnNUNNNIENN 
Hs ANT EEEEnnNREENNEnNnEEEnEnEnnnEENNNUEENENNUNNNINNI 
FOMRE MENU 

Résolution de triangles sur HP-41 

par Jean-Claude CATY, 

Eève-ingénieur ESGT. 

I GENERALITES Quelques remarques 


1) Les chaînes de caractères sont indiquées entre 
guillemets. Ex. : la chaîne de caractères «AA A A» sera 
introduite en appuyant sur ALPHA, 4 fois sur À et 
enfin de nouveau sur ALPHA. 


2) Certaines touches seront assignées (cas de = +). 
Ces assignations ne sont pas indiquées dans la table 
des fonctions standard et provoqueront des affichages 
tel RCL M. Lorsqu'une telle fonction devra être 
introduite, la touche sur laquelle appuyer sera 
indiquée par la fonction standard entre parenthèses. 
Ex. (LOG) voudra dire qu'il faut appuyer sur la touche 
LOG mais la fonction exécutée sera dans ce cas 
RCL M. 


3) Pour vérifier que vous n'avez pas fait d’erreur, 
nous pourrez comparæ l'affichage de votre calculette à 
celui indiqué dans la colonne «Affichages. 


4) Les fonctions absentes au clavier seront exécutées 
par la séquence XEQ ALPHA NOM ALPHA. 


S) Certaines opérations sont très délicates et la 
moindre erreur entraîne un «memory lost». [] faudra 
alors reprendre au début. 


6) CLP «Sr sera effectué par la séquence XEQ 
ALPHA CLP ALPHA ALPHA ALPHA. 


Avant de commencer, il est nécessaire d'effectuer un 
‘MEMORY LOST». Vérifiez que vous n'avez rien de 
capital en mémoire puis éteignez la machine. En 
maintenant appuyée la touche de correction, allumer. 
Relachez ensuite la touche de correction pour voir 
apparaître À l'affichage MEMORY LOST». 


Vous êtes maintenant prêts pour la procédure 
suivante : 
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Affichages | Opérations | Affichages | Cpérations |] Affichages | Opérations | nffichages | 
N CHS 11 — 08 LBL 00 LBL 02 01 LBL 02 BST 08 RCL IND 16 

ASN PACK-11 DEL 002 07" ssTt O2'"#8A" AUS PRGM -1.0442 -90 
ASN CHS 13 LBL 03 08 LBL O3 PRGM -1.0442 -90 Œ+) 
ASN CHS-13 CHS 09 CHS (£E+) PRGM 08 RL IND X 
ASN CHS 14 RCL 09 10 RCL 09 PRGM 02 - LBL 00 09 LBL 00 
ASN CHS-14 GTO .. 00 REG 45 — 01 LBL O2 ST+IND 20 10 ST+IND 20 
PRGM 100 REG 43 voir renvoi 1 — 00 REG 42 BST j09 RCL [ND 16 
CAT 1 immédiatement suivi de 1 O1 1 LBL O4 01 LBL O4 SST : 1C"+88 
R/S .END.REG 45 RCL IND 16 02 RCL IND 16 |SssT 02"88" "ASS PRGM -1.0442 -90 
ALPHA "AAAAA" O3 'AAAAA PRGM -C.1044 SST 

— : 4094 RCL O1 BST 02 RCL IND 16 |(Z:) ALPHA 104 
ALPHA PRGM 0.0000 PRGM O2 - ASTO O1 
GTO.006 | 06 CHS (L+) — 01 LBL O4 PRGM MA se 

— iOS LAL 03 PRGM 102 RCL IND M — 00 REG 42 GTO.010 10 - 

— 04 LBL 08 (VX) :03 O0 ssr Lot" en + 2 DEL C04 09 "+88 
"a" 05'A LAL 07 | 24 LBL 07 voir renvoi 2 | BST C& RCL IND 16 
BSC : 04 LEL 08 - 05 - (106) 02 RCL M "AAAA'" r OJ'AAAA 

dé 03 L®L 09 1/x 106 1/x 1 03 1 BST OR RCL IND 16 
LBL O4 ,04 L': 04 = 07 - RCL IND 16 ‘04 RCL IND 16 | PRGM -1.0442 -Q0 
GTO.008 08 L:: 03 GTo.001 01 1 RCL IND 17 j05 RCL IND 17 |(E+) 
DEL OC5 07" DEL OC2 [OO REG 39 AVIEW 06 AYTFW PRGM CB RCT, [ND [, 
RCL IND 16 O8 RCT TND 16 | PRGM 1 0.00C0 GTC.004 O4 ACL IND 16 |STaIND 64 OQ STHIND 64 
RCL IND 16 09 RCL IND 16 |SST i PRGM :-1.0442  -90 - 10 = 
RDN ou R} | 10 RDN ALPUA ; BSA "A (Z+) - 11 - 
GTO.005 O057A ASTO 01 PRGM [O4 ROT IND 16 RST 10 RCL IND 16 
PRGM , 0.0000 PRGM 102 SeCSCr — 03 1 SST 11 'BSAA 
USFR CLP" 00 RFG 43 DEL CO2 02 PCL M PRGM -1.0142 -ac 
(Z+) 1 101 1 ssr 03 STO d SST 
PRGM 05 RCL IND 16 |RCL IND 16 [02 RCL IND 16 1 04 1 ALPHA agua A 

— 04” "AAA" | O37AAA RCL IND 16 C5 RCL INN 16 |ASTO 02 
sct 05 RCL 00 BST 0? RL IND 16 |RCL IND 16 06 PL IND 16 MAAAAA" AAAAA 

— 04" PRGM ; 0.0000 AVIEW 107 AYIEW ARCL O2 AAAAABEAA 
LBL 03 05 LBL 03 (Z+) GTO,005 05 RCL IND 16 | ALPUA -1,0442 -00 
cHS 06 CHS PRGM [O2 RCL IND X PRGM -1.0442 -00 ASHP 
RCL 09 07 RCL 09 RCL IND 36 103 RCL IND 36 (2+) ALPUA AA 
GTO.017 17 LBL C3 DEG : 04 DEG PRGM C5 PCL IND 16 | ASTO 02 
DEL O(02 16 STO 0Q RST ‘03 ROL IND 16 — O4 1 CLA 
(vx) 17 RCL M — ,02 1 DEL OC2 03 S'o 4 ARCL O1 F0 
GTO.008 08 LAL 03 FRGM 0.C000 SST 04 RCL d AFCI O2 FSU A À 
DEL 004 07" SST !1,0000 1 05 1 PRGM 12- 
RCL IND 16 CB RCL IND 16 |S©ST RCL IND 16 06 RCL IND 16 |ñSTOo.c07 07 1 
RCL IND 17 09 RCL IND 17 |AÏ.PUA see RCL IND 17 07 RCL IND 17 |NEL CC8 067T+-8 
x#y? 10 xey? ASTO O2 A/IEW , 08 A/IFW FRGM -1.0442  -90 
GTC .005 05”'A "AAAAA" AAAAA GTO.0C6 ,06 PCL TND 16 COQ c.c1a3 -59 
FRGM 0.0r00 ARCL O2 AAAAABBB. PRGM -1.0442 -9Q (10 
(Z+) ALPHA .1.0"00 (Z+) : PRGM C6"+8 
PXGM 05 RCL IND 16 |ASYP PRGM 06 ?CL IND 16 (vx) 07 © 

— 04” ALPHA ES — 05 1 — 06"+-8 
SST 05 RCL OC ASTO 02 DEL 002 C4 RCL d ScT C7 'AAGESZ 

— 04°" CL A ser 05 5TO d PRGY 0.0193 -5a 
LAL 03 05 LBL 03 ARCL 01 umA’"A 1 06 1 SS? 
cs 06 CHS ARCT. 02 USA" 108 RCL IND 16 07 REL IND 16 FO G.4142 -aa 
RCL Oa 07 ACL Ca ATPUA 1.0C00 "AA" . OR AA (10 
GTO.( 14 14 LRAL O5 CLP" " BST C7 RCI IND 16 | PRG" . FND.RFS 32 
DEL OC2 13" (10ç) CT L] PRGM -1,C442 -00 (vr) ce € 
(vr) 14 370Q (10") (£+) — C7'AABBSX 
GTO.0C4 C4 LPL O4 PRGM OC RFG 43 PRGM C7 RCL INID Y — 06"+-# 

e— 03 LAL oa (vx) 01 O0 CLD CP CLD "PL C4 C7 LAIT C4 
LBL OE O4 LPL 08 4— OC REG 43 HR 0° Y4R ss? CATIBEBAA 
Gr0.008 O8 LBL 03 PRGM CIE] Bsr C& RTL [D 16 PACK 
DEL OC4 07” SsT — C7 1 PRGM f.4142 -99 
LBL OC CH LAL 00 (10ç) -1.0442 -00 — 06 SrO 1 (Z+) 
RCL IND 16 09 RCT, IND 16 (10°) GTC.0C7 OT - F°GM C6 = 
RCL 16 1C RCI, 16 Fac» .END.RFG 42 DEL CC2 061-8 EL “C2 07 LPI, C4 
BST .C9 RCL IND 16 — O1 #1'108 voir renvoi 3 — CATR-O 
PRGM c.coc — CO RFG 42 ' C7 1 

(vx) 01 O RCL IND 16 CH ACL IV9 1@ 
OQ PAT. INT ‘A Les Cr per 42 


"ARE" OQTAAA 





(voir listing). Je conseille de nouveau d'enregistrer cette 


Renvois : | 
ligne sur une 2ème carte magnétique. Une erreur de 
manipulation dans la suite vous conduirait à effectuer 

1) Ces instructions ont servi à fabriquer 4 un «MEMORY LOST», à charger la carte d’assigna- 
assignations spéciales sur les touches Z +, /x, LOG tion puis celle du programme avant de reprendre à ce 
et 10%. niveau. 

Il est conseillé de les enregistrer sur cartes Assurez-vous que vous êtes en mode programme et 


magnétiques à l’aide de la fonction WSTS. Si dans la USER avant de reprendre. 


suite de la procédure, vous commettez une erreur, vous | 
effectuez un MEMORY LOST, vous chargez cette 3) Vous avez maintenant les 6 premières lignes 


renez à ce niveau des opérations. «bizarres». Je conseille une fois de plus de les 
PRE Fe enregistrer sur la 2ème carte. En cas d'erreur procédez 


Assurez-vous que vous êtes en mode programme et comme au 2ème renvoi. 


ER t de reprendre. 
USER avan P Assurez-vous que vous êtes en mode programme et 


2) Vous avez maintenant la 6e ligne du programme USER avant de reprendre. 
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III UTILISATION DU PROGRAMME 


O XEQ:‘TRIANGL» XEQ SIZE 020 le programme vous demande 20 mémoires 


@ XEQ «SIZE» 020 R/S SOMMET i : 





















Introduisez le nom du ième sommet 
séquence répétée 3 fois. 












Si les 3 sommets étaient À, B et C 
Introduisez la distance AB et l'angle A 
Introduisez la distance BC et l’angle B 
Introduisez la distance CA et l’angle C 
Lorsque un élément est inconnu 

introduire la valeur O 


@ Nom du sommet R/S 





















Un BEEP sonore annonce le résultat 
Indication du nombre de solution 
valeur des côtés : 






X solution 
* DISTANCES 
AB — 

BC = 
CA = 

* ANGLES 

À = 

B — 

C = 

S = 


















valeur des angles : 












surface du triangle 






Remarque sur l'introduction des côtés et des angles vous demande distance * angle , vous devez avoir 
l'angle dans le registre X et la distance dans le registre 
Y de la pile opérationnelle. Lors de la demande 


Une donnée, angle ou distance, ne sera prise en d'introduction, la pile a été effacée. Vous aurez donc 4 
compte que si elle diffère de 0. Lorsque le programme cas : 
distance = 0 distance = D (# 0) distance = 0 distance = D (#0) 


angle = 0 angle — A (40) angle — À (#0) 








ou 0 ENTER 7 ou D ENTER # ou 0 ENTER # ou D ENTER 7 
0 R/S 0 R/S A R/S A R/S 


XEQ SIZE 020 XEQ ALPHA SIZE 
ALPHA 020 R/S 


SOMMET 1 : S R/S 
SOMMET 2 : P RS 
SOMMET 3 : H R/S 













IV EXEMPLES 















119,400 


42,518x<>y  R/S 
119,4 x< > y R/S 
18,485 x < >y R/S 






TRIANGLE SPH 


0 solution 
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PRP “TRIANGL” 


81eLBL “TRIANGL" 
"KEQ 512E 8287 PROMPT 
1,483 


85eLBL 88 

ae"  * RCL I STO 
d 
*SOMMET “ ARCL Ÿ 
“+: * AVIEN CLA STOP 
RDN ASTO IND X [SG x 
GTO 88 AOFF SF 21 
FC? 55 GTO 81 SF 12 
CF 13 “TRIANGLE 
ARCL 81 ARCL 82 
ARCL 85 rRA AD 


31+LBL 81 
4,989 STO 68 


J4eLBL 82 
RCL 88 2 RL X ! 
- X(2Y 3,1 MOD RND 
+ ARCL INDY ‘+, 
ARCL IND X “se” 
ARCL IND Y CLST PROMPT 
KEQ 83 Xx()Y ISG 88 
KEQ 03 ISG 88 GTO 82 
CF AQ CF 81 SF 82 
RCL d STO 11 CF 82 
588982 1 ! 


68eLBL 84 

FS? IND Z ST+ x ISG 2 
GTO @4 KX=Y? GTO 81 
RCL X 4,88882 XC2Y 1! 


79eLBL 38 
FS? IND Z ST+ x ISG 2 
GTO 38 + 8 X+Y? 
GTO 81 Rt 6,888 xC)Y 
1 


92L8L 85 

ST+ X X=Y? GTO IND Z 
ISG Z GTO 85 

GTO *TRIANGL” 


99eLBL 88 

SF 88 2 RCL 89 S5Ts Ÿ 
Kt2 RCL 85 STs Z xf2 
+ RL 87 X?2 - Xc)Y 
/ ACOS STO 84 SF 84 


11748L 97 

F5? 84 GT0 89 F5? 96 
GTO 18 RCL 88 FC? 45 
GTO 11 FC? 89 GTO 12 
RCL 89 RCL 85 

RCL 88 SIN + ASIN 
FS? 82 KXEQ 23 SF 86 
ST0O 86 GT0 17 


139eLBL 12 

RCL 87 RCL 85 / 

RCL 88 SIN + ASIN 
FS? 82 XEQ 23 SF 84 
STO 84 GTO 17 


152eL8L 11 

RCL 88 RCL 89 P-R CHS 
RCL 87 + / ATAN 

SF 86 STO 86 GTO 86 


164LBL 18 

RCL 86 FC? 89 GTO 13 
FC? 87 GTO 14 RCL 87 
RCL 89 7 RCL 86 SIN 
s ASIN FS? 82 KXEQ 23 
SF 84 ST0 84 GTO 17 


182eLBL 14 

RCL 85 RCL 89 

RCL 86 SIN + ASIN 
FS? 82 XEQ 23 SF 88 
$T0 88 GTO 17 


195eLBL 13 

RCL 86 RCL 87 P-R CHS 
RCL 85 + / ATAN 

SF 84 STO 84 GTO 86 


287+LBL 89 

RCL 94 FC? @7 GTO 15 

FC? 85 GTO 16 RCL 45 

RCL 87 / RCL 84 SIN 

+ ASIN FS? 82 XEQ 23 
SF 48 STO 88 GTO 17 


225+LBL 16 

RCL 89 RCL 87 

RCL 84 SIN + ASIN 
FS? 82 KXEQ 23 SF 86 
STO 86 


237eLBL 17 
F5? 82 GTO 86 x»? 
SF 81 GTÙ 86 


243eLBL 15 

RCL 84 RCL 85 P-R CHS 
RCL 89 + / ATAN 

SF 88 STO 88 


254eLBL 86 

288 RCL 84 RCL 86 

RCL 88 + + - FC? 84 
STO 84 FC? 86 STO 86 
FC? 88 STO 98 SF 84 
SF 86 SF 88 1 E-3 

510 88 


273eL8L 18 

7 5 RCL 87 RCL 88 
SIN # RCL 84 SIN / 
KEQ 22 


284eLBL 19 

9 7 RCL 09 RCL 64 
SIN # RCL 86 SIN / 
XEQ 22 


295eLBL 28 

5 9 RCL 85 RCL 86 
SIN + RCL 88 SIN 7 
KEQ 22 


PPC-T NW Fr 
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J86+LBL 21 

ISG 84 GT0 18 F35?C 88 
CF 41 FS?C 81 GTO 24 
1" F0 "2 F0 2 
"6" ‘+ SOLUTION" 

FS? 82 ‘+S* BEEP 

SF 12 SF 13 AVIEN 

FC? 25  PROMPT 


327eLBL 25 

SF 13 CF 12 

+ DISTANCES" FIX 3 
AVIEN CF 13 5 2 1 
XEQ 27 7 2 3 XEQ 27 
9 3J 1 XxEQ 27 

“+ ANGLES" FIX 4 SF 13 
FC? 55 CF 21 AVIEN 

PSE 1,1 4,90882 


355+LBL 28 

SF 21 CF 13 CLA 

ARCL IND Y FS? 88 ‘“+2" 
"+=*  ARCL IND X AVYIEN 
[SG Y IISG X GTO 28 
RCL 84 SIN RCL 85 

RCL 89 #* * 2 7 

FIX 2 *S" F5? 88 “+2 
"+= ARCL X SF 12 

F5? 59 &EQ 29 AYIEN 

SF 21 PS SF 68 
Es " FS2 55 PRA 
ADY FS2C 82 GTO 25 
ADY ADY ADV STOP 


399+LBL 83 
STO IND 88 CF IND 88 
K#07 SF IND 88 RTH 


485+LBL 22 

FS? IND Y RTH 

FC? IND Z RTN SF IND Ÿ 
STO IND YŸ RTH 


4130LBL 23 
CHS 288 + RTN 


418eLBL 24 

RCL 11 STO d RCL 81 
STO 11 RCL 82 STO 12 
RCL 83 STO 13 7PC)S 
4,889 STO 88 18,1 + 
STO 18 


433eLBL 46 

RCL IND 18 FC? IND 88 
CLX STO IND 88 ISG 18 
15G 88 GT0 26 SF 82 
GTO 87 


443eLBL 27 

CLA ARCL IND x 

ARCL IND Y FS? 88 “+2” 
+=" ARCL IND 2  AYIEN 
RTN 


453eLBL 29 

“han ACA “re 
ASTO X ACSPEC ADV 
CF 21 END 


Mr Gil Gabriel T 150 
44 chemin de Barberet 
69700 GIVORS 


Givors le 19-4 


Je t'envoie 3 
lister un 
de J.V. 


cartes 
programe 
(80 caractères) 


Cher J.D 


magnétiques 
en C.B. Grâce 


permettant de 


l'imprimante 


Attention il efface toute la mémoire d'extention. 


UTILISATION 
T Te programme 


tiennent en mémoire 


XEQ CBGI, Île 
d'impression en 
R/S 


LISTEUR et Île 
r'ncipale alors: 

papier va 
face 


défiler, 


de la Jlêre 


Entrer le nom du PROG à lister R/S 


Si on ne 
lister dans 


peut pas 
la lêre position du EMDIR (SAVEP) 


toutmettre, 


XEQ CBG2 (même mode opératoire) 


programme à 


mettre la 
ligne à 


--+le 


lister 


tête 
imprimer 


programme à 


UTILISER le papier comme le modèle ci-joint 


PS: 3mn par ROM 


91eLBL “CBGI” 


"eieg 7 KO EC XCc 
KO) \ STO 63 XCD \ 
#4 c XOT 
18eLBL “CBG2" 
PRP ** 
L'58PN 84.89 
B1eLBL *CBG1" 
"ai KO ET XOc 
XO \ STO 63 KC 
KO © xOT 


18eLBL *CBG2" 

28 PSIZE CLRG 1! 
STQ 27 SELECT AUTOIO 
MANIO CF 88 SF 17 
CF 27 CF 28 CF 29 


FIX 8 ‘v" OUTA STOP 
"EF66ES" OUTA XEQ 58 
“4  * OUTA 


“PROGRAMME :* QUTA *+?- 
RON STOP ASTO 82 AOFF 
QUTA 8 STO 86 ,819 
STO 83 SF 25 SAVEP 

CF 25 RCLPTAR 2 - 

STO 85 LASTX + FLSIZE 
ARCL X 

"+ REGISTRES" CF 17 
QUTA SF 17 K()Y 

RCL 86 / INT LASTX 
FRC X#97? SICN + 

STO 88 RDN * +++ 

256 ‘ XTOR LASTX + 
LASTX MOD XTOR REL ! 
“Ari ” 
RCL U XO € 

XOY XO 88 XCOY 

*O © XOY STO 86 

SF 88 E STO 81 

KEQ 83 “+” 3 
STO 85 KXEQ 11 
KEQ 85 OFF 


STD 44 
FS?C 89 


183eLBL 18 
ISG 93 GTO 82 XEQ 45 


187eLBL 88 

RCL 83 FRC 12 + 
STO 63 16 RL 81 E 
- + SO II 

119LBL 82 


DSE 05 GTO 82 RTH 


123eLBL 82 
DSE 84 GTO 11 7 
STO @4 GETX STO ! 


Amitiés 


( c'est long) 


138eLBL 11 

SF 89 ALENG RCL 84 
ReŸ7 , X=V7  ATOX 
ENTERT STO IND 83 

ST+ 99 DSE 81 GTO 18 
143 - K(:87 97 64 - 
XC=87? 34 32 - X(=47 
3 STO 81 STD 87 

GTO 18 


158eLBL 05 

CF 49 RCL 88 16 HOD 
LASTX + ST+ 89 STO 19 
ISG 88 “* RCL 87 

RCL 81 DSE X - RL I! 
+ STD 11 RCL 89 + 

255 MOD X=8? LASTX 
STO 89 ASTO 82 RCL 83 


INT 8999 + E3 

STO 88 

191eLBL 12 

SF 17 “£ROW:" ARCL 88 
“Ha OUTR *+° 

“+ *  QUTA 


RCL 98 KEQ 15 RCL 88 
38 MOD X=9? XEQ 58 
CLA ARCL 82 RTH 


218eLBL 15 
STO 25 ** QUTA 


214eUBL 16 

RCL IND 25 XEQ 14 

ISG 25 GTO 16 FS?C 88 
GTO 13 ” «” 
QUTA 

RTH 


224BL 13 
F 4” OUTA RTH 


228eLBL 14 
CLA STO 21 1 STO 22 
8 STD 23 8 STO 24 


2379LBL 84 

RCL 29 2 7 INT 

STO 21 LASTX FRC 2 + 
RCL 22 # ST+ 23 18 
STe 22 DSE 24 GTO 84 

8 STO 24 1E8 ST, 23 


258eLBL 83 

RCL 23 19 « FRC 

STO 23 LASTX XEQ IND * 
DSE 24 GTO 83 OUTA 
RTN 


278eLBL 88 
FS? 98 GTO 86 149 
XTOR  RTH 


276eLBL 86 
178 XTOA RTN 


288BL 81 
FS? 99 GTO 97 191 
XTOA SF 98 RTH 


287LBL 87 
178 XTOR 
CF 98 RTH 


149  XTOR 


2H4eLBL 58 

“£s" OUTA CLA FIX 4 
DATE ABATE ‘+ * TIME 
ATIME OUTA 

* LISTEUR DE CO OUTA 
"DE BARRE -GIL- * OUTA 
FIX @ “PAGE “ ARCL 27 
"+" OUTA 

“VERSION 4/834*  OUTA 

1 ST+ 27 .END. 


PPC-T 


Je ne sais pas pourquoi mon imprimante 82162 en mode trace ne saute 
pas toujours le même nombre de lignes avant un Label? 

Les lignes synthétiques de ce programme ne m'ont pas été fournies, 
YOus pouvez toujours le demander à ]la programmathèque de Damien 
Debril. Codes barre d'un programme (7) fait par ce moyen page 4. 


D PR | 


-Le programme "Déterminant" du n°4 de mars 83 est excellent 
mais un Simple VIEWX entre les pas 98 et 99 vous montrera 
les coefficients Qi du polynôme caractéristique: 

X “n-qlX"(n-1)-q2 X “(n-2)...-qn=P(X) et si vous arrêtez 


l'exécution à l'avant dernier coefficient et qu'à ce moment 
vous visualisez A,elle est alors égale à (-1)°n detM x M “(-1) 
(i1 faut la lire en colonnes comme elle est écrite) c'est 
à dire qu'en fait le programme inverse aussi la matrice donnée 
M (à un coefficient près). Si vous le souhaitez je peux détailler 
mais je n'ai pas de machine à écrire! 


AU lieu d'Aitken ,utilisez Lagrange! 

ROT:bbb,eeeiii index bloc des xi 

RO2:BBB,EEEII index bloc des yi 

x valeur donnée en X ,éxécutez IP 

ÿ©f(x) approximation rendue pour interpoler x connaissant y 

Avantage pas de tableaux à gérer 
et le même (exactement) résultat 
du polynôme d'interpolation. 


qu'Aitken vu l'unicité 


- la programmation Synth permet -elle de size 


et comment fonctionne F? du PPC ROM 


changer le 


- à quand la suppression de l'interligne . 


Saurez-vous bientôt quelque chose? et peut-on tracer des courbes 
paramétriques x=x(t) y=y(t) par l'imprimante? 

Ceci dit , ce que vous faites, force mon admiration 
je pense à la somme de travail que cela représente . 

avec tous mes remerciements; 


quand 


T70 Mr LEROY 
12 rue du 8 mai 
Givenchy 62580 VIMY 


81eLBL “IP 

STO 88 CLX STO 83 
RCL 81 STO L[ RCL 42 
STO 


89eLBL 81 


RCL 81 STO J RCL IHD 


13eLBL 92 

RCL 88 RCL IND 1 - 
RCL IND U LASTX - 
X#87 GTO 84 SIGN 
STO Ÿ 


246LBL 84 
7 + IISG] 
ST+ 03 
GTO 81 
RCL 83 


GTO 82 

ISG [ “* [SG : 
CLA RCL 88 
END. 


:l est toujours possible de changer Le SIZE par la 
programmation synthétique, mais c'est délicat et brutal, en parti- 
culier, les adresses de retour de sous programmes posent problème. 
La fonction ad hoc du X-Fonctions résoud bien nieux Le problème. 

Le F? donne le nombre de registres disponibles sous Le 
-END.. IT n'est pas vbossible de äonmner son fonctionnement en 
quelques lignes, mais La position du .END. figure dans Les regis- 
tres d'état... 

La suppression de l'interligne sur l'imprimante 92143 
('anctenne") nécessite une intervention matérielle délicate. Sur ta 
82164 (HP-IL) l'imprimante résoud ce problème quand elle imprime 
tes codes barre, logiquement :l1 devrait äone être posstble de La 
jorcer À le faire “galement en d'autres moments. Ce n'est pas sûr 
et je n'en at vu nulle part La solution. Peut-être avec Le nouveau 
module X-10? 

Les inprimantes ne déplacent Le narier que dans un seul 
sens, le ‘raçé de courbes paramétriques n'est donc posstoie que 5t 
eiles sont monctones. La CGP 115 résoud Le nroblème (st as 
brteoieur, voir La “ICAPE). 

“-D Dodin 


DD 
N 7? 


SEPTEMBRE OCTOBRE 
1983 P8 


5 Routines de Tri pour HP-41 Mar cer Tu boiu 7 T6 


Le tri s'effectue par ordre décroissant, pour obtenir 
un tri par ordre croissant il suffit d'inverser "l'inégalité" 
soulignée dans chaque liste. 
Les nombres à trier sont au nombre de N et doivent 8tre stockés 
dans les registres R, à R N-1° 
Avant le lancement d?un RENE et 8 doivent 8tre introduits 
dans les registres R at R_,, respectivement. 
Les routines BUL «at UE util£sent les registres 00 à 04 at les 
routines SEL, SHL et S-M les registres 00 à 0S pour leur fonc- 
tionnement, 
L'ensemble n'est pas optimisé du point de vue de la program- 
mation de façon à $8tre plus clair ot assez proche des algo- 
rithmes correspondants. 
Lorsqu'on regarde d'un peu plus près les performances des 
différrentas méthodes dans les divers cas proposés dans le 
tableau, on constate . 

- qu'il vaut mieux oublier la méthode à bulles qui n'est 
la plus rapide que quand les N nombres sont...dans 
l'ordre; 

- que dans la méthode par sélections successives des 
maximums, ls fourchette de temps entre les ces de figures 
extrêmes est très resserrée; 

- que la méthode par insertion est la plus rapide ‘lorsqu'il 
s'agit de trier une suite de nombres déjà pratiquement 
dans le bon ordre, ou bien lèrsqu'il s'agit d'ajouter un 
ou quelques ‘éléments à une suite dé jà triées 

- que la méthodes SHELL donne de bons résultats tant que N 
reste inférieur à 30, ce qui s'explique par le fait que 
dans les différents sous ensembles, les éléments sont triés 

suivant la méthode à bulles; 

- que la méthode SHELL-METZNER donne les meilleurs résultats 
et sera généralement préférée à toutes les autres, sauf 
éventuallement dans le cas précis où la méthode par inser- 
tion ant nlus rapide. 


Tableau des résultats, temps en secondes : 















170- 8 59-53 47-22 36-22 






































30 383-141 126-113 | 87-32 58-32 
100 4159-30 1273-1122! 301-155 | 253-155 

30 (b) 330 114 90 42 

30 (c) 348 114 100 52 

266 114 111 52 

294 114 117 51 

100 (c) | 3843 1151 866 324 

3560 1141 797 290 

3183 1140 836 305 

190 (c) 682 

638 

663 

Algorithmes : 


Tri à bulles, BUL 


ermu ler (es 
confonus de 





(a), les deux temps indiqués correspondent à une suite classée 
en ordre inverse (cas le plus défavorable) et à une suite 
classée dans le bon ordre (cas le plus favorable), ceci 
n'a de valeur , en fait, que pour BUL, INS et SEL, pour 
les deux autres, le cas le plus défavorable étant indéter- 
miné. 

(b), un seul élément de la suite n'est pas à la bonne place. 

(c), différentes suites en ordre aléatoire. 





Tri par insertions, INS 






enter 


Wet B 









remplacer de 
cor NU de 


L'é oar R3-1 








Tri par la méthode de Shell, SHL 





CC debut ) 


Entrer 


vit 8/ 


PER, 
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4 
f 


OuA 


O1eLBL “BIL* 
92 CF 08 
@3eLBL 11 

84 RCL 03 
95 RCL 84 

86 + 

97 2 

98 - 

a9 ,i 

18 % 

11 RCL 84 

12 + 

13 570 41 
I4eLBL 12 

15 RCL 81 

16 1 

17 + 

18 RCL IHD X 
19 RCL IND 81 
28 X)Y? 


22 SF 08 

23 STQ IND Z 
24 XC)Y 

25 ST0 IND 81 
266LBL 14 

27 SG 91 

28 GTO 12 

29 FS?C 88 
38 GTO 11 

31 EXD. 





O1eLBL “SHL” 
62 CF 48 
93 RCL 83 
84 2 

35 / 

36 INT 

47 STO 85 
A8eLBL 97 
99 1! 

| 14 + 

11 CHS 

12 RCL 83 
13 RCL 84 
14 + 

15 + 

16 ,1 

17 % 

18 RCL 84 
19 + 

è8 ST0 81 


A 21+LBL 86 





22 RCL 81 

23 RCL 85 

4 + 

25 RCL IND X 
26 RCL TND 81 
27 X)Y? 
ATATU 14 

29 STO IND Z 
30 XC)Y 

31 STO IND 81 
32 SF 48 
339LBL 14 

34 IS6 81 

35 GTO 86 

36 RCL 95 

37 FS?C 88 

38 GTQ 47 

39 2 
4, 

at INT 

42 STO A5 
43 X)8? 
44 ETO 47 
45 .END. 
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ALeLBL “[NS* 
82 CF 48 

83 RCL 93 

94 RCL 84 

45 + 

6 ! 

97 - 

88 ,1 

9 % 

18 RCL 44 

il + 

Rat 

13 + 

14 STO @1 
15sLBL 82 

16 RCL 81 

17 INT 

18 STO 82 

19 RCL IND 81 
28 ST0 88 
21eL8L 93 

22 RCL 82 
23 1 

4 - 

25 RCL IHD X 
26 RCL 98 


2 TE 
4 


29 SF 48 

30 XC2Y 

31 ST0 IND 82 
32 | 

33 ST- 42 

34 RCL 84 

35 RCL 92 

36 X)Y? 

37 GT0 83 

38 RCL 88 
J9+LBL 14 

48 FS?C 98 

41 STO IND 82 
42 ISG 81 

43 GTO 82 

44 .END. 


JLeLBL “S-H° 
32 RCL 83 

93 2 

84 / 

95 INT 
96+LBL 19 

47 ST0 85 

98 | 

89 + 

18 CHS 

11 RCL 83 

12 RCL A4 

13 + 

14 + 

15 ,1 

16 % 

17 RCL 84 

18 + 

19 ST 81 
28+LBL 89 

21 RCL 81 

22 RCL 85 

ê3 + 

24 RCL IND X 
25 RCL IND AI 
26 X)Y? 

7 RTÙ 14 

28 STO IND Z 
29 X()7 

38 STD 48 

31 KL Hi 

32 INT 
33+LBL 08 

34 ST 42 

35 REL 45 

36 - 

37 RCL A4 

38 X)v? 

39 670 13 

49 FCL 84 

41 RL IND 7 
42 XV? 

43 G10 13 

44 STO IND #2 
45 PCL 82 
46 RCL 85 


AIeLBL “SEL” 
g2 RCL 83 

83 REL 44 

44 + 

A5 2 

46 - 

47 ,1 

88 * 

49 RCL 84 

18 + 

11 STO 81 
12eLBL 84 

13 REL 81 

14 STO 88 

15 1,881 

16 + 

17 STO 42 
18 RCL IHD 81 
19 STO 85 
28eLBL 85 

21 RCL 85 
22 RCL IND 42 


» 
24 A 14 


25 STO 85 

26 RCL 82 

27 ST0 68 
28*LBL 14 

29 1SG 82 

38 GTO 05 

31 RCL [HD 81 
32 STO IND 68 
33 RCL 85 

34 STO IND 81 
35 IS6 81 

36 GTO 84 

37 .END. 


47 - 

48 GTO A8 
499LBL 13 
58 RCL 8 
51 570 IND 4 
JeeLBL 14 
53 [SG AI 
54 6TO 49 
55 REL 845 
56 2 

57 / 

58 INT 

59 x)47 
68 GTO 14 
61 ,END. 


Franck Lebas tard 
9672T35P43 
Contact Bretagne PPC-T 
10, rue de la Jalousie 
35600 Redon 


Je t'envoie aujourd'hui un programme qui n'est 
pas de moi et qui est varu de PPCjournal d'avril 
(vo1.10 no.3): j'en ai fait une version française 
simplifiée quant à l'initialisation.Les commentaires 
les ordres et descrintions sont en françàis, ce qui 
n'était vas tron évident, vu la longueur des mots 
de notre chère langue comparée à celle de leurs 
équivalents anglicistes.CE nrgm, pour ceux qui ne 
le connaissent nas encore est un jeu d'aventure. 

Par un xeq'"av'", vous devenez un moribond à moitié 
déshydraté, effectuant une marche désesvérée sous 
le chaud soleil du désert. Puis, tout à couv, vous 
arrivez dans une oité fantome. Vous avez tout de 
guite l'imvression d'être observé, ce qui est 
confirmé var la suite, où vous 8tes pronvrement 
attaqué et dévalisé de tout votre bien : l'équipe- 
ment que vous avez tant eu de mal à rassembler dans 
cet enfer. 

Le but du jeu est de sortir du désert, ceci grace 
au matériel que vous allez veu à veu découvrir dans 
la ville. Le jeu se comoose de 24 tours, à chacun 
desquels vous avez drait à un certains nombre de 
déplacements et d'actions possibles qui, s'ils sont 
imvossibles immédiatement, sont refusés par le org 
au moyen du message "Illegal" suivi d'un tone. 

Il vous est conseillé de faire une carte des 
endroits où vous 8tes déjà allé. 

Derniére précision/ Il y a 11 objets à découvrir 
si vous le voulez, mais vous ne vouvez en porter 
que trois à ia lois. 31 vous avez trouve un 8ac, 
vous vouvez y mettre quatre objets. 

La victoire sera indiquée var un bee retentissant 
et victérieux, accomoagné var l'affichage du nombre 
de couvs nécessaire à la victoire. 


Utilisation du programme après enregistrement sur cartes 
1. Memory lost, Size 190 


(J'oubliais.. Le orgm nécessite 319 registres) 
2. Rentrer le prgm (12 pistes) 
3. Le pregm étant enregistré avec le flag 11 levé, 
11 nart tout seul. À la question "ALEA?", donner 


une graine. Puis r/s. 
4. Rentrer les cartes de données à la question 
"Data Cards" 


Le jeu commence alors... 
Le vreñier tour commence var une descrintion de 
l'endroit initial et des objets qui s'y trouvent. 


Le jeu lui-même 
. chaque tour,vous devez rentrer une commande. 


En utilisant le clavier alohanumérique, entres 
la direction dans laquelle vous voulez aller, 
ou l'ordre que vous voulez exécuter, ensuite 
pressez r/s8 
Directions, ordres, noms d'objets doivent être 
entrés écrits exactement. 

2. Le jeu continue tant que vous n'8tes vas mort 
ou que vous n'avez nas gagné. 


Dénlacements 88ibles 
: nord, : Sud, "fE" : est, "A0" : ouest, 
"AB" : bas, "/B" :haut 


Ordres ga ibles 
; : prise par le joueur d'un objet qui se 


trouvait sur læe so1.Action illégale si 

le joueur norte déjà trois objets. 
"DEPOSER" : pose d'un objet que le joueur avait sur 

Tui-aême sur le 301. 
rangement d'un objet de sur le joueur 
dans le sac. Action 1llégale 31 le 
Joueur n'a nas le sac sur lui-même ou 
Si le sac renferme déjà quatre objets. 
retirement d'un objet du sac du jo sui 
vour le mettre sur lui-même. Action 
illégale si le joueur à déjà trois 
objets sur lui-même. 
affichage de l'inventaire des obÿets 
que le joueur a sur lui-même et dans 
son sac 8'{1 le norte.Informations 
varticulières aux objets en question. 


"RANGER" : 


"SORTIR" : 


"LISTER" : 


"EMPLIRN : 


emolir le flacon avec de l'eau 


Voilà, c'est tout. La nremière fois que vous ren- 
trerez le nrgm, n'oubliez pas d'armer le flag 11 
avant de le sauver.Pour enregistrer les données 
sur cartes, rentrez las dans la machine puis 


faites 


7,129 WDTAX 


Bonne chance à tout ceux qui tenteront l'aventure 
Je n'ai versonnellement jamais réussi à sortir du 
désert...Paix vour mon Ame... 


À noter que le code de la ligne 06 est : 
F4 21 OO 90 00 


A bientôt à tous et 


A1eLBL “AV 

EREG 98 134 PSIZE 
*ALER?" PROMPT 570 46 
"6e" ASTO d CLE 19 
STO 82 7,129 
“DATA CARDS” 
RDTAX AON 


AVIEN 


18eLBL 88 
FS?C 93 XEQO “VOIR” 
KEQA KEQOB XEQC E 


ST+ 83 GTO 88 
27eLBL A 
"ORDRE ‘-  PROMPT 


ASTO 88 SF 25 
KEQ IND 88 FC?C 25 


GTO I RTK 

36+LBL “VOIR" 

"TU ES DANS UN” AVIEN 
ASHF  REL 82 17 + 


RCL IHD X STO 88 


45eUBL 63 
ARCL IND 88 ISG 88 
GTO 88 GTO 87 


J8+LBL 68 
ARCL IND 88 1SG 88 
GTO 89 GTO 87 


S5eLBL 89 
ARCL IND 88 ISG 48 
GTO 18 GTO 47 


68eLBL 18 
ARCL IHD 88 


624BL 47 
AVIEN 1SG 88 GTO 83 
KEQ 21 RCL 82 


68eLBL 16 
STO 81 7,817 STO 88 


729LBL 84 
RCL IND 88 RCL 41 
610 85 ‘IL Y A° 
"TU AS" F5? 18 
"Le Sac 37 “+ UN ” 
RCL 88 59 + 
ARCL IND X AVIEM PSE 
F5? 89 GTO 45 FS? 18 
GTO 65 “ICI AVIEN 


K#Y? 
F5? 49 


95eLBL 95 
ISG 88 GTO 94 CF 49 
CF 18 RCL 81 


181eLBL 17 

RCL 87 x#Y? GTO A1 
CLA  ARCL 66 ‘+ EST - 
F5? 82 “HPLEIH.” 


FC? 42 “HVIDE.- AVIEN 


113eLBL A1 

RDH RCL 15 X#Y? RTH 
CLA ARCL 74 “H EST - 
FC? 86 “HETEINT." 


=> 


"VOIR" : Descrintion du lieu où le joueur se 
trouve et des objets qui y sont visi- 
bles.Affichage d'informations varticu- 
lières concernant ces objets. 

"OUVRIR" : ouvrir les portes 

"ALLUMER" : allumer la torche 

"CREUSER*® ; creuser vour chercher de l'eau ou pour 
dégager un tunnel PPC-T N : 

SEPTEMBRE OCTOBRE 


1983 P11 


Heureuse Programmation 


FS? 86 “+ALLUME. * 
AVIEN RTK 


1276LBL “PRENBR- 
AVIEN 2 RCL 84 x)? 
GTO [ KEQ 22 RCL @? 
X#V7 GTO 1 99 


STO INDT FE ST+ 44 
RTH 
1426LBL “DEPOSE” 


AVIEN XEQ 22 99 x2y7 
GTO I RCL 82 STO INDT 
E ST- 84 RTK 


153eLBL “OUVRIR- 

AVIEN 23 RCL 82 x-v? 
GTO 81 24 KX2Y? GIDI 
99 RCL 16 X#Y? GIO I 
SF 01 E KEQ 18 PTX 


178L8L 81 
99 RCL 17 X#Y? GTO I 
SF #8 , 


177eUBL 18 

CLA "PIECE * x=87 
"PASSAGE * FS? IHD x 
“HOUVERT” FC? ID X 
"HFERNE" AVIEN RTN 


188eLBL “ALLUME” 

AVIEWN RCL 11 99 xzy7 
GTO 1 RCL 88 x2Y? 
GTO I RDH RCL 15 
GTO I SF 86 RDH 
KEQ 17 RTN 


X2Y° 


285eLBL “CREUSE” 
AVIEN 99 RCL 14 x#Y? 


CTO I 22 RCL 42 x?” 
GTO 01 SF 84 KXEQ 21 
RTH 

218eLBL 81 

19 K#V? GTO I SF 45 
XEQ 23 RTK 

225eLBL “EMPLIR" 

AVIEN 19 RCL 82 x2Y7 
GTO 1 FC? 85 GO I 


RCL 87 99 Xx#Y? GIO I 
SF 82 KEQ 17 RTH 


248eLBL “RANGER” 

AVIEW 3 RCL 95 Xx)y7 
GTO 1 99 RCL 12 XzY? 
GTO I KEQ 22 99 x+y° 
GTO [ 98 STO INDT 99 
510 12 E ST+ 85 

ST- 84 RTK 


262eLBL SORTIR" 
AVIEN 99 RCL 12 x+Y”7 
GTO I 2 RCL 84 x)Y? 


CTO I KEQ 22 98 x+v? 
CTO I 99 STO INT E 
ST- 85 ST+ 84 RTN 


2820LBL "LISTER" 

AVIEN SF 99 99 XER 16 
99 RCL 12 X#Y? RTH 

SF 19 98 KEQ 16 RTK 


2954 BL *tN" 
2 GTO 19 


298eLBL “tE- 
4 GTO 19 


361eLBL “+5 
6 GTO 19 


384oLBL “10” 
8 GTO 19 


J87eLBL “1H 
SF 93 


389eLBL “+18 

RCL 82 41 + RCL IND * 
FS?C 93 CHS Xx38? 

GTO [ Eï-. 


319eLBL 19 

AVIEN SF 83 STO A8 

RCL 82 41 + RCL IND : 
REL 88 18tX / FRC 

E2 + INT ABS Xx=97 
GTO I STO 88 RCL 82 - 
ABS 23 X#Y? GCTO 81 
FS? 91 GTO 81 E 
XEQ 18 RTK 


J49eLBL 81 

RDN 21 X#Y? GTO 81 
FS? 88 GTO 81 , 

XEQ 18 RTN 


359+LBL 81 
RBN 19 KXz#Y? GTO 81 
FC? 84 GTO I 


366+LBL 81 

18 RCL 88 X#Y? GTO 81 
STO 82 XEQ VOIR" 

GTO “Av° 


J74eLBL 81 

3 - KX(8? GTO #6 4 
KC=Y? GTO 86 99 

RCL 15 X2Y? GTO 12 
FS? 86 GTO 86 


388eLBL 12 

“IL FAIT TROP- 

"+ SOMBRE” AVIEN PSE 
“POUR CONTINUER"  AVIEH 
RTN 

396eLBL 86 


RCL 98 STO 42 23 Xrv? 
RTN FC? 97 RIH F5? 49 
RTH “UN HERNITE S'EN” 
AVIEN  ASHF 
“HFUIT D'ICI...* 
PSE SF 88 RTN 


AVIEN 


414eLBL B 

F5? 97 RTH RCL 86 R-D 
FRC STO 86 72 « 

RCL 83 X<=Y? RTH 
"QUELQU'UN T'° 
“HASSOME.” AVIEN PSE 
" TUES - 
“FINCONSCIENT.."  AVIEN 
PSE * TU TE RANIMES * 
AVIEN  ASHF 

“UN PEU APRES" AVIEN 
7,917 STO 88 


441eLBL 82 
99 RCL IND 88 X*Y? 
GTO 81 2 STO IND 88 


448eLBL 81 
ISG 88 GTO 82 SF 47 
CLX STO 84 RTH 


455eLBL C 
7,813 STO 88 


458eLBL 14 

97 RCL IND 88 K<(=Y? 
RTK 15G 98 CGTO 14 

FC? 82 RIN BEEP 

TU GACNES" AVIEN PSE 
"EN “ ARCL 83 

“+ TOURS"  PROMPT 


475eLBL 21 

22 RCL 82 KeY? GTO 11 
"LE TUNNEL “ FS? 84 
“HN'* CHEST * AVIEN 
ASHF  F52? 94 “+PAS * 

ru QUE" AVIEN RTK 


491eLBL 11 

19 X2Y? RTN FC? 45 
RTN “IL Y A DE” 

“+ L'EAU ICI AVIEN 
RTN 


Sa1eLBL 22 
“+ QUOI?" PROMPT 
ASTO 98 66,476 STO AI 


397+LBL 13 

RCL 98 RCL IND 81 X2v? 
GTO 81 RCL 41 59 - 
RCL INB X RTN 


S17eLBL 81 
SG 81 GTO 13 RTH 


Se1eLBL I 
TONE 4 “ILLEGAL® AVIEH 
.END. 





-TONES _SYNTHETIQUES 


TSYNT permet une utilisation facile des tones synthétiaues 
car il crée des séries de tones svnthétiques avec un maximun 
de 9. le programme comprend aussi une boucle rour répéter la 


série autant de fois œue nécéssaire.ll suffit à chaaue T? de 


donner le code décimal du tone désiré puis R/S si vous ne 


voulez pas d'autre tone faire Simplement R/S. La machine vous 


demande alors le nombre de boucle à effectuer par R?.En fait 


je construit en ALPHA la boucle des tones ce aui me permet 


par un simple XTOA de créer les tones voulus.En effet à la fin 


du programme se trouve en ALPHA l'équivalent de: RCLb RDN DSEY 


RP TONE ? :.:... TONE ? STOb. Par éxécuter ce programme il 


suffit d'envover le nointewde. la 41 dans le reaistre P grace 


à 100000000,5 
ou à CLX. 


J'espère que TSYNT sera utile 


X<>b.Selon le contenu de X 


STOb renvoie à RDN 


pour tirer plus facilement narti 


des petites rossibilités musicales de la 41. 


EN souhaitant 


un qrand avenir à 


V.Herlica T139 


81eLBL “TSYNT" 
°7?" ASTO Z *R?" 
ASTO T “éurt” 


87eLBL 88 

RDN RD STOP SF 25 
128 MOD FC?C 25 

GTO 81 “+” KTOA RDH 
ALENG 24 X3Y? GTD 88 
RD 


24eLBL 81 
"+ RL Z STOP EB 


5 + XC) b CLX .ENB. 


TRACE 


PPC-T 


EC 
= 


= SYNTH—- 


-HEXA- 


86: F6.98.7C.75.97. 72.74 
16: F2.7F.9F 
25: F3.7F.91.7C 


B1eLBL “SL* 
“---SYNTH-—*  AVIEN 


“-HEXR-" 


AVIEN 


“86: F6.98.7C.75" 
“+.97.72.74"  AVIEN 
16: F2.7F.9F* AVIEN 


END. 


"25: F3.7F.91.2C* AVIER 


ASSORTIE  D  ) 


Mon cher Jean-Daniel 


Ci-joint un petit cadeau pour les vacances: 


un LOGO SYNTHETIQUE POUR 42227 | 


Ce sous-programme introduit le LOGO de PPC-T 
dans le buffer de l'imprimante. On peut ensuite 
l'imprimer grâce à PRBUF ou ADV,. Les codes des 
lignes synthétiques sont: 
02: 254,17.194.228.124.60.122.24I.17.102.62.30. 
61.120.249, 
05: 248.127.17.158.29.155.19I.126.247, 
11: 254,17.223,191.251.177.112.249.17.244,232, 


II2.0.0.0 


OB1+LBL “PPC 
—T" 
82 “Al<zaf > C2 
£=x" 
93 “+Qzx =” CITES 
94 K<> ] 
95 ACSPEC 
96 K<> « 
un mater LEL "PPC-T 
09 ACSPEC END 76 BYTES 
19 K<> ] 
11 0 
PA 
SsSéss exenples d utilisations 
12 K<D « 
13 ACSPEC C2 1280 
14 KC> CL - (ZE 1200 
15 ACSPEC 231260 
16 K<> « 
17 RTN etc... 
18 END 


N.B. Vérifier que le drapeau 2I soit mis avant 
d'en faire l'impression. 


Les lignes IO et I6 ne sont pas indispen- 
sables, elles sont là pour ne pas laisser une 


poubelle dans le registre X . GR 
SIT" 


Source: René Bégué (9143,T7200) sur une idée 
de Richard Nelson. 





M. MONSENEGO Eric 

105, rue de la convention 
75015 PARIS 

Tél : 16 (1) 554.11.86 


T_341 


Paris, le 28{/03 


Cher J.D.D. , 


Je vous envoie ce petit programme ultra court qui 
efface la pile opérationnelle. Le registre LAST.X, 
remet tous les drapeaux (de O à 55) à leur état 
normal. I1 efface aussi le registre ALPHA. Les 3 
lignes synthétiques sont obtenues grâce au B-G. 
La ligne n° 2 comporte les codes (décimaux) : 
52; 45 128; O. Si l'on veut être encore plus 
rapide dans l'exécution du programme on peut 
remplacer le O de la ligne 7 par une , . 
A titre indicatif, j'ai relevé les durées d'exé— 
cution en : 

- vitesse simple : env. 1,5 sec. 

- vitesse double : env 95/100° sec. 
Pour plus de commodité assigner le programe 
à SHFT-CLX 
HAPPY PROGRAMMING ! 


P.S. : Est-il possible de traduire ce programme 
en microcode ? et si oui, comment ? 
Salutations et remerciements. 


AieLBL “RAZ" 
82 “dae° 
93 RCL I 
84 xC) d 
85 CLRG 
#6 CLA 
878 

88 570 L 
89 CLST 
18 TONE 8 
11 TONE 9 
12 TOHE 5 
13 END 





PPC-T N 7 
SEPTEMBRE OCTOBRE 
1983 P12 


Serge Vaudemny T 270 
62 av Ardouin B3 


.0d. 873 
Me HR $ 94420 Le Plessis Trévise 


A tous les membres de PPCT, 

J'ai changé le ruban de ma machine à écrire !1! 
Ceux qui ont tenté de lire mon article dans PPCT n°6 
(page 11) comprendront que c'est une bonne nouvelle. 

J'en profite donc pour retaper mon programme ALEA 
et pour montrer un autre programme "POFF"!, 
01 LBL ALEA 
02 SIZE? Une note avant d'expliquer: ceux 
03 1 qui n'ont pas la chance d'avoir le for- 


04 X>Y? midable module X FUNCTIONS pouronk se 

05 PSIZE passer ües lignes 02 à 07, mais la cal- 
06 RDN culatrice poura évidemment s'arrêter en 
07 RDN affichant NONEXISTENT en SIZE 000. 

08 RCL 00 Ce programme fabrique donc un 

09 ENTER nombre aléatoire compris entre O0 et 1 

10 SIGN tout en évitant les ALPHA DATA divers 

11 X=07? ou OUT OF RANGE quelconques dus au 

12 XCY contenu de R 00. 

13 RDN Je rappelle tout de même que les 
14 FRC heureux possesseurs du module TIME peu- 
15 9821 vent tout simplifier avec la fonction 

16 * qui place l'heure dans X. 

17 ,211327 Un XEQ ALEA vous prendra 6 octets 
18 + mais vous pouvez les ramener à 3 en 

19 FRC changeant le nom du programme. Le pro- 
20 STO 00 gramme en lui-même prend 6 registres. 

21 END 

01 LBL POFF 30 OFF Ce programme 
02 SF 00 31 FS?C 00 POFF sert à 

03 LBL 00 32 GTO 00 faire l'anti- 
04 2 33 "POFF* MEMORY LOST 

05 PSIZE 34 PCLPS de Michel Weil 
06 1 E-9 35 E dans l'OI 41 

07 FC? 00 à la page 220. 
08 CLx Les PSIZE, PASN et CLKEYS 

09 STO 01 (effacement global des assignations) 
10 FC? 00 peuvent $ire faits manuellement. 

11 GTO 01 Pour ma part, ce programme est 
12 CLKEYS sous forme de carte magnétique 

13 MBEEP" (avec SF 11 et WPRV) sur une piste, 
44 11 ce qui explique son "auto destruc- 
15 PASN tion" aux lignes 33 et 34. 

16 21 Pour rallumer la 41 (après 5 

17 PASN minutes minimum), retirez les accus 
18 LBL 01 5 secondes, remettez les et mainte- 


19 chaine synth. nez la touche d'effacement enfoncée. 


20 RCL 01 La ligne 19 a le code suivant: 
21 RCL M FB 00 10 00 11 69 OC 01 00 

22 XCDe Après allumage, faites R/S pour 
23 X<>Y anuler les effets contraignants de 
24 STO 00 ce programme (PACKING interminables, 
25 RDN ON muêts et CLKEYS impossibles). 

26 X<>c Bonne chance aux mauvais plai- 
27 CLST santins !1!1! ; 

28 SF 11 \ fu = 

29 FS? 00 - Nidns  _ — 


all 





Cônversion Base b en Vecimal : Hu 
—— 2 250... 20, .6C1mer +: Dev. 


Encore un autre programme de conversion de vase 
utilisant le moduie X-Fonctions.Ce programme est 
particuiierement rapide,comparé à celui du PPC-ROM. 

ii utilise 1a formule suivante : 

S=r+D*S 
où: P/est la valeur décimaie de chaque digit a con- 
vertir. 

pb/est 1a base. 

S/est 1a sommation successive de chaque ca{cui. 


vétaiis tecnniqu: 3 pour B=u : S1ZE UUF (minimum) 
Usage de_la pile_: £ utilisé 
_—.— 4 utilise 

: nombre de digit d'alpha 

4 résultat en base 1v 


Usage des drapeaux: 
7 D 04 ? Code X10À pour les chiffres 

U# U4 : code XIUA pour les lettres 
usage du registre alpna : nombre en base b 
usage des registres: 


K Vo :Dbase 0 


Mode d'emploi : 
TJ Pour convertir un nombre entier d'une base b 


en base 10;stocikez cette base en K Vu 

2) introduire le nombre de digits de La base b 
dans le registre alpha.vous pouvez utiliser tout Le 
resistre(sans garantie de la précision) 

3) vortez du mode alpna er exécutez "H=u",Le ré 
sultat en base 10 sera dans le registre 4.1e nombre 
d'origine en alpna est perdu et aipha reste efface. 
Attention au dépassement de capacité pour lies bases 
élevées. 

L& conversion d'un nombre de 4 digits prend en 
moyenne 3.35 secondes. 


Analyse ligne par ligne _: 


pas 01 à 04 :Nombre de digits en alpha et initia- 
lisétion. 
p&s 0 à 0, :Efface flag 04 et sortie d'un digit. 
pas 06 à 13 :Si Le digit est un chiffre Sr U4 
Si le digit est une lettre Ur Ud 
st restructuration de la pile. 
pas 14 à 22 :Equivalent du digit en décimal et fin 
du calcul. , 
pas 23 a 25 :Vécrementation pour traiter Le digit 
suivant et résultat final en 4. 
Jde n'est pas encore reussi a faire un program— 
me aussi rapide dans l'autre sens (D-#) 
Avis aux amateurs! 


81eLBL *B-D” 

g1eLBL “DATA 
x 82eLBL 88 
AI B 
F7, “600,97 RCL CT STD d 
ASeLBL 88 "ACT ARCL 88 ‘+, 
CF 04 ATOX 58 XCY ARCL 81 “+= ALENG 
XCY? SF 84 XC)Y RDN TONE - STOP AROT AOFF 
F5? 84 48 FC? 84 55 ANUN F5? 22 RTN 
= XOY RCL A6 * + TONE [ GTO 48 .EHD. 


DSE Y GTO 88 .END. 


Vata :Le petit copain des amoureux du basic! 

uand on utilise un programme qui demande 
l'introduction de beaucoup de données(calcul de ma- 
trice,ajustements de courbes,Calculis rinanciers...) 
sil est toujours préférable de rentrer vos données 
a coté d'une indication,du style: 

A(2,9%)= et sa valeur immédiatement aprése 
Ét bien rassurez-vous votre Hr a les moyens de le 
faire le plus simplement du monde! 

Data est,en réalité,un sous-programme qui vous 
permettra d'introduire une série de données sans 
vous tromper.S5i celà vous arrive vous êtes un grand 
étourdi! 

La seule difficultée de ce programme réside à la 
ligne OU: de celui-ci. 

Cette ligne est en décimal : 

24770/0/0/44/0/197/128 

Pour votre gouverne, les flags 2b 24 2y qu 41 45 

41 48 sont levés a chaque exécution de ce progra- 
mme.5i le flag 4, vous gène remplacez 1Y/ par ÎTyo. 


Analyse ligne per ligne: 


pas UT à 02 :Label genéral et &lobal(entrée érroné 
-e 

pas 05 à V5 :hestructuration du registre des flags 

PaS UU a 10 :Au choix de l'utilisateur 

pes 11 a 1» Longueur au message qui déterminera 
le permutation a raire pour ne pas 
confondre 1es chiffres du message (si 
il yen a),et le chiffre qui fait 
office de donnée 

pas 12 à 2U :5ortie de la donnée du registre alpha 
svVérifiesi il n'y a pas d'erreur sinon 
vous rappele a l'ordre par un tone et 
reafficne ie message. 


#xemple d'application: 


LBL"DIM",RCLFLAG,STC L,1,5T0 00,3,5T0 02,Lou vs, 

1.005,S10 UT, ur UT ,ZEQ"DA1AM,Sru in 02,1,51+02 

1Su UT,urU 01,1,5 +00, KL VU y# y AÉI !Q,ULU US, LAS LA, 
S LUF LAu ,C LA, EN 


Ce petit programme rentre les valeurs d'un ta- 
bleau 5*; dans Les registres 05 a 11. 
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AiitnrlOw 2:51 vous utilisez KHCLMLAU comme c'est le 
Cas 1c1ine faite pas d'opération durant votre pro- 
gramme d'introduction de donnée,sinon vous perdrez 


Vous avez dit "BIZARRE" ? 
a" " "CARE 
16eLBL 84 


cette constante.(vous pouvez toutefois vous servir Un nas dt A pour lister ce 17 "Br + * 
d'un registre qui fera trés bien l'affaire) Programme j'ai d tricher, en 18 sto 06 
TUNE 02199 ,121 effet, au pas 17 l'imprimante 19+1b1 95 
TONÉ M=159,11: Passe en double largeur et minus- 29 “8x; 
cules toute seule et continue de +" 
J'espére que les explications ne sont pas lister ainsi, Si à ce moment là FS? 12 
trop orouillonnes ...Sinon n'hésitez pas a m'é- on lui demande FS? I2, Frs? I5, NO 
crire. réponse NO 1... Qui peut m'expli- FS? 13 
ueureuses Applications ! quer cette bizarrerie? HO 
Jean-Louis Assié 
B0tÉ4 13 


nee ns 
COMPUTED DATA ENTRY 
AZERTY ou QAWERTY ? 


I1 arrive que dans un programme, l'on ait à 
effectuer un calcul pour trouver la valeur d'une 
donnée à introduire, Ce calcul va perturber la 

pile opérationnelle, de qui peut être génant pour 
la suite du programme. On a alors 3 solutions: 

1) On calcule la donnée sur une autre machine 

on a de la place sur son bureau et les moyens) 
n_ stocke bestialement toutes les données et 
l'on ne compte pas sur état de la pile opération- 
nelle pour la suite du calcul, ce qui peut nécessi- 
ter de stocker en plus des résultats intermédiaires 


Question classique ! 
Personnellement je pense qu'il vaudrait mieux être 
tous au QWERTY et avoir toute une collection d'ac- 
cents divers à rajouter là où on en a besoin, ce 
qui aurait l'avantage d'être international. En 
contre partie les Anglais pourraient rouler à droi- 
te comme presque tout le monde sauf ceux qu'ils ont 2) 0 
contaminési... Les Américains, eux, ont le QWERTY 
et roulent à droite, par contre ils ont des miles 

à la place des kilomètres... ce n'est pas si simplel 


Tout ceci pour dire que HP n'a pas gâté les Français ...et ça vous bouffe une de ces place mémoirel... 
au niveau des accents. Seul ü est utilisé dans notre 3) On utilise le "CDE" (CDE pour Calcul de Donnée 
langue (Saül), les autres à # 6 etc...appartiennent en Entrée, en plus c'est facile à taper!), petit 
à ces langues imprononçables!... sous-programme qui stocke la pile opérationnelle 


Voici donc un petit programme qui fournit la liste provisoirement dans le registre alpha et qui vous 


ar la restitue intacte aprés vos calculs. Le program- 

complète des voyelles accentuées utilisées en Fran- 
cophonie, et pour terminer la liste des absents, un ne Peut alors continuer les siens,tranquille... 
c cédille qui :e met devant a o u pour lui donner N.B. Seul le registre L peut être perdu, en effet, 
le son s.(Larousse) un essai pour le sauvegarder dans P m'a fait décou- 

; vrir les problèmes que l'on pouvait rencontrer avec 
Bonjour les trémas, accents aigus, graves et circon- 
flexes!l... synthétiques bien évidement. Se registre ( P comme Poubelle!) 


UTILISATION: XEQ"ACC",la HP demande le auméro de la PILE OPER EIONNE 








lettre suivant la liste Jointe (Iàl2),faire N° R/S, ue bheut L . . 2 À 
la HP à l'aide de la fonction ACSPEC met la lettre Si Données Ÿ Dounée T Y z 
en question dans le BUFFER de l'imprimante (et ac- ° 
cessoirement la stocke en mémoire) 8LeLBL “CDE* QLeLBL “EXEMPLE 
EXEMPLE: Pour écrire Cisué XEQ"ACC" à la demande : 92 CF 22 92 “PRCN PPAL' | Le calculateur affiche 
"N° LETTRE", taper SF I2,"C",ACA,SF 13,"IGU" ,ACA, 83 AVIEN 83 "DONNÉE ?" et s'arrête. 
CF 13,6,R/S,PRBUF, 84 STO g4 On peut alors calculer 
Si les lettres sont déjà stockées, RCL 06,ACSPEC.  . LC la donnée avec la HP 4] 
marche aussi bien. . 99 vant de faire R/S 
N.B. le buffer de la 821434 ne recoit qu'au maximun 88 STO ] 10 “DONNE ? étés 
6 caractères spéciaux, 89 RDN “ie ce 2OUTCe ; 
Les codes des instructions synthétiques sont: ë 1 13 René  BEGUE 
À cou 27-16.1.196.88.207.32.0. à  R8I= “:Dx0 12 STOP pee 29 ‘és, 
IT 47.16.1.196.104,175.160.0. À  RB2= -rDh/ - 13 FC?C 22 La LR à 
é (14) 247.16.1.197.106.I81.4.0. &  ROZ= “€ ja" 14 RTH Suite calculs avec Résidence * SUNSET * 
à (17) 287.16.1,197.90,27T4. 4.0, à  R84= “:1EZUa” 15 RL ] pile opérationnelle Blvd. Prince de Calles 
ê (20) 247.I6.I.197. 106.I81.132.0. à  pg5= -1€55q* 16 RCL intacte FRANCE 64288 BIARRITZ 
ë (23) 247.I6.1.197.90.149.68.0. &  RA6= “*EZAD” 17 RCL I LBL'CDE Lis 
£ (26) 247.16.0.4.III.176,128.0. 1 RO7= “ao8o* 18 Rt . EXD. 43 BYTES ( | Tor” 
1 29 247, 16.0.4.95,. I144,64.,0,. i RO8= “a_68" 19 RTN 
6 (32) 247.16.1.196.104.177.156.0. © pags -rhle- 20 END. 
à (35) 247.16.1.228.24,80.30.0. Ù RI9= “rdéPf” 
ü (38) 247.16.1.228.40.48, 158.0. OQ  RII= “xd(8c* 
ç (41) 247.16.0.194,76.137.8.0. SG  R12= “BLes” 
Listing du Programme: Exenples: SAS 
nt es 
nd 9 CTO 88 340LBL 10 | “ CHASSE aux CANARDS- 
ie Cu 85 35 “QrôP£e* Te J'ai cherché comment utiliser les Shen 7 et 
93 * NO. LETTRE ?* 28 Br) 36 CTO 88 tête + pour agrémentes 1 affichage en programme, Ca n'est 
84 PROMPT + 37eLBL 11 pas simple. Les béstioles apparaissent en mode FIX 1@ 
@5 XEQ IND x 21 CTO 88 38 “Or (8e lue (synthétique) lorsqu'un nombre non normalisé avec un 
86 CTO “ACC 220LBL 86 39 CTO 88 mag Certain exposant est affiché. Plutôt que de vous 
87+LBL 81 23 “A:2De" 48eLBL 12 abrutir avec de longues explications je vous ai fait 
88 - x + 24 GTO 88 41 "Belas” ébène un tablssu (de chasse) pour vous permettre de partir 
99 GTO 88 29eLBL 87 En o en exploration, je vous ai mis ensuite un programme 
18LBL 82 26 "8+ao de démonstration. Un codes de ls table des octets, 
11 “sh ù : ne : formé de deux chiffres héxadécimaux apparait sous 
1% — . 4 46 ACSPEC Cr forme de deux caractères à l'affichage 
LJeLBL 83 29 “Boa_ge- 47 STO [HD Ÿ l® double caractère (à gauche de 1a virgule) 
14 “Gr, 38 GTO 08 48 xO ( Source: 
- JLeLBL 09 49 RTN 
4 GTO 88 32 “Bih 58 EH René ÉRADE 
ER Hi . ÆZF (9143) 
er 33 CTO 60 CZ (200) 
” ë Résidence * SUNSET 


Blud. Prince de Galles 
FRANCE 64288 BIARRITZ 





2°" au 6*" double caractère (pour CF 28 at CF 29) 
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espace 





Lorsqu'on modifie les drapeaux 28 at 29, les carac- 
tèrss sont remplacés par ceux de la ligne zéro du 1°" 
tableau. Le deuxième demi code du sixième caractère 
doit être @ pour laisser la place à l'exposant dans la 
fenètre de 12 caractères de l'affichage. 


7*doubls caractères (exposant) 
Il apparait sous forme d'un blanc ls plus souvent, 
Suivant l'état des drapeaux 28 st 29 on distingue trois 
séries de codes décimaux : 19,16,36,56,62,82,102,108, 


122,128,148,178,198,204,218,224,244. at 
19,39,45,65,85,91,105,111,131,151,151,161,181,187,241, 
287,227,247,253. st les autres. 


Une des séries peut conner aussi . ou P: en exposant 

ou un nombre non normalisé classique. Je ne connais pas 

ls signification de css séries; les matheux chercherons 

j'ai tout de même remarqué que la première est paire et 

la seconde impairse... 

exemple : 

FIX 10 CF 28 CF 29 hex F7:2A:0E: CG : BQ : CE : 1@ : 13 

pour LB : dec 247,42,14,192,176,206, 16 , 19 


RCL M _ -8 > < + 4yr! 


Tout se passe comme G'il fallait que . | et : occupent 
la place d'un caractère normal. . et , se transforment 
en Canards, et : en pâté (de canard !). Il reste à 
explorer lss modes FIX SCI et ENG 210. 


Application 
Un programmes load-byte sst quasiment indispensables pour 
charger CAN. N'oubliez pas 246,127 au début de chaque 
grande chaire 2!-ha, Si vous n'avez pas ls X-Fonctions 
(c'est trés dommage) XTOA peux être remplacé par un 
programme Décimal to Caractère (PPC-ROM). 


282 octets XEQ 00 
41 LBL'TCAN " ,80,0,0,12,0 
E 1 27,17 XEQ ag 
, 3q " ,8,0,0,192,0 
CLA XEQ 00 
05 FIX 10 156,10 ",0,0,12,0,0 
CF 28 XEQ 08 
CF 29 " ,0,0,192,0,0 
XTOA 35 XEQ 00 
LBL ü1 ",8,12,0,0,0 
10 246,127,176,0,0,8,0 XEQ 08 
XEQ 08 * ,8,192,0,0,0 
1" ,14,0,8,0,0 XEQ au 
XEQ 00 40 " ,12,0,0,0,0 
".,9,224,0,0,0 XEQ 00 
15 XEQ 8 GTO @1 
" ,8,14,0,0,0 LBL GG 
XEQ aa 242,127,19 
1 ,8,0,224,0,0 45 VIEW M 152,117 
XEQ 08 TONE 39 159,39 
20 " ,8,8,14,0,9 15G X 
XEQ 00 ADV (nop) 
 ,0,0,80,224,0 X=Y? 
XEQ ug 58 CLX 
",8,0,8,14,0 CLA 
25 XEQ 00 XTOA 
" ,0,0,8,0,176 53 END 


Amusez vous à changer x par 11 ou y par 16 et à 
armer les drapeaux 28 at 29. 


-JEU du PENDU- 

Il existe déja pour HP 41 sans accessoire le bon 
programme de Wickes dans "synthetic programming" qui 
montre bien la puissance de la programmation synthéti- 
que. Le module X-Fonctions permet de faire mieux ; 

J. Fèvre (T 250) à présenté son programme avec fichier 
dans PPC-T N6PB, je vous donne ma version, trés rapide 
st compacte. Un SIZE @04 suffit ; lancez le programme 
PND, il vous demande d'entrer un mot de moins de dix 
lettres, mais vous pouvez aller jusqu'à douze, il y 
aura alors déroulement de l'affichage si le pendu doit 
se dessiner. R/S et un nombre de trait correspondant à 
la longueur du mot apparait. L'autre joueur proposes une 
lettre et R/S. Le résultat s'affiche, puis éventuelle- 
ment les segments du pendu, st aprés un Tone vous 
POUVSZ proposer une autre lettre. Vous avez droit à 
neuf fautes. Aprés les commentaires de la fin, faire 
simplement R/S pour uns nouvelle partie, 


pas 
16 st 35 append 95 (décimal) 
20 : TONE 73 
46 : NOP 
62 : 249,95,76,67,64,96,6,4,5,1 
13 : append 64 
83 : "PENDU.CX. PERDU" 
85 à 38 : IONEs 109,109,10U9,10 
122 : TONE 88 
131 : TONE 39 


329 octets 


Mémoires : 
RGO longueur du mot 
@1 premières let. 
02 dernières let. 
03 nombre de fautes 


TREDEZ b. T 120 


ALeLBL “PHD- DSE Ÿ STO b ASTO Y 
CLX 510 83 STO d ASHF  ASTO X 

SF 26 AON “MOT <1AL 7 ‘-LC@'TaBr" RCL 83 

STOP ALENG STO 88 DSE X AROT ATOX CLA 


ASTO 81 ASHF ASTO 82  ARCL T ARCL Z xC)Y 4 
LA RCD “+" DSE Y XC=Y? “H@" RCL Z KXTOA 


187LBL 82 
“BIEN, * CTO 91 


STO b GTO 89 118eLBL 43 
“B0F...* GTO 81 
194LBL 89 27eLBL 83 
TOME 3 PROMPT AVIEM  X=Y? SF 94  XTOR 113eLBL 84 
SF 25 SF 99 RCL 88 GTO 87 “BEUH “ GTO &1 
ATOX ARCL 81 ARCL 82 
82eLBL 88 116eLBL 95 
"PERBU.@r.PENDU" AVIEM “OUF..." GTD 01 
29eLBL 88 TOHE H TONE H  TONE H 
ATOX %=Y? SF IND 2 TONE 4 * T'ES NUL...” 119LBL 88 


FS? IND Z GT0 83 “++ AVIEN * C'ETAIT - "EXCELLENT" AVIEN 


SF 28 CTO 86 TOHE 8 - SANS - 
37eLBL 97 934 BL 81 124eLBL 01 

RON DSE Ÿ GTO 68 * CACHE" AVIEN BEEP X#07 ARCL Ÿ “H+FAUTE” 
AVIEM FC2C 28 cro gr FIX @ RCL 83 RL X 2 X2Y7? “+S"  AVIEN 


FC?C 88 1ISG 43 ADY / RNB GTO INB x TONE 3 CLA 

RCL 03 X=87 CTO 89 

El X:Y? GCTO @ 133+LBL 86 

RCL 6 - RE b “+” PSE ARCL 81 ARCL 92 
184eL8L 01 CLD .END. 


"SUPER, * CT0 61 





TAEOCZ 


Cher Jean-Daniel 

Comme tu demandes des volontaires, je me propose 
pour m'occuper des codes-barres. C'est un chapitre qui 
intéresse au moins autant de gens que le microcode, at 
68 ne consiste pas uniquement à faire les programmes du 
journal en codes-barres comms tu sembles le penser, Je 
suis d'accord avec toi quand tu dis qu'il ne faut pas 
inonder le journal avec une seule rubrique, mais le 
lecteur optiques est aussi un bon moyen pour entrer st 
étudier les fonctions spéciales pas besoin d'assigna- 
tion, de byte-grabber; st il y a les programmes (profe- 
ssionnels) utilisent le lecteur optique... J'ai encore 
beaucoup ds choses à découvrir msis ça prend du temps 
st je ne m'interesse pas qu'aux C.B. Les adhérentes 
intéressés peuvent me poser des questions directement : 
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TREDEZ bruno (T128) champ fleuri Bouvron 44134 BLAIN, 
st je leur répondrai dans le journal si je peux, sinon 
je raposerai la question à tous. Je peux faire aussi 
les "petits" C.B. de ceux qui n'ont pas les moyens 


(imprimante...). 
Pruix Tale | 


Voici mes dernières trouvailles en codes-barres : 


50.20 WE a NIUE 
e UM -< ON 
ei UN --: OU 
c2 UML -<2 ONE 
es UNE :-: 
ca UNIL > ON 


Le code LRIT 4onne une fonction-Q-Loader qui permet 
de faire des labels globaux "délocalisés", c'est à 
dire du genre LBLTA . Cette fonction est assignable 
avec le code 245,0 XROM 52,48 (voir PPC-TN5P15). 

Les codes suivants sont des nombres particuliers, de 
la catégorie "DATA". Ils sont codés de la façon sui- 
vante : 1 octet de controle (somme décimale des octets 
qui suivent modulo 255), un demi octet indicatif 6 
(8118), ensuite les chiffres du nombre sont codés sur 
un demi octet chacun 8000 pour zéro à 1841 pour 9 î 
les autres codes ont une fonction spéciale 10 est 
un bouche-trou à mettre avent ou aprés les chiffres 
pour Compléter éventuellement la chaine pour avoir un 
nombre entier d'octet; 11 c'est la virgule ; 12 est 
une sorte de nul ou de complémentaire ? ; 13 est le 
signe moins ; 14 pour lss exposants ; 15 m'a donné 
CHEKSUM ERROR jusqu'à maintenant î 

exemple donnant ,@1 E-2 soit 0,0001 
00,0000 1100,8110 1019,1011 000,200 1 1110,11@1@010,10 
12 186 176 30 210 


Par tatonnement dans ma recherche des exposants 
synthétiques, je suis tombé sur des fonctions curieu- 
ses : E@, Sa n'est pas E ni E 00 mais Ça donne aussi 

1. En assemblant les codes on peut obtsnir en mode 
PRGM des choses du genre E E (10,14,14) 1-2 (1,13,2) 
@1 (12,0,1), mais sens intéret (voir PPC-T N5P21). 

La fonction "mortelle" donne 1 en mode calcul et, la 
première fois que je l'ai utilisée en mode PRGM, tous 
les indicateurs de 3AT à ALPHA se sont allumés et 
PACKING était affiché, la machine bloqués; j'ai dû 
faire un reset qui m'e causé un MEMORY LOST. Ensuite 
j'ai toujours eu , aprés un petit blocage, un MEMORY 
LOST sans intervenir. Portant je n'ei pas changé la 
configuration des extensions : lecteur optique, time, 
X-F et X-" 1e premier phénomène est donc dû au 
contenu de la machine assignations, allarmes, 
fichiers ? J'avais le programme de test de l'affichage 
(DTdu PPC ROM) en X-Mémoire... La fonction de codes 
13,14,1@ donne la même chose en mode PRGM; il y a 
encore des découvertes à faire dans cette voie. 


Pour créer uns chaine alpha, aprés le classique 
nombre de controls d'un octet, on place le demi octet 
indicatif 7 pour une nouvelle chaine ou B pour ajouter 
la chaine à alpha (append), ensuite un demi octet cor- 
respondant au nombre de caractères suivants (1 à 15). 
Viennent ensuite les Caractères codés sur un octet 
chacun. J'utilise souvent, dans les initialisations de 
jeux par sxempile, une chaine alpha synthétique suivie 
de ASTO d,CF Q3. En voici une qui arme less drapeaux 
26 (TONE), 31 (TIME) et 4Q@ (FIX @) at désarme tous Les 
autres : 


DR 


21.00.80.uQ 


Le programme PCB permet de transcrire un programme 
contenu en mémoire et de l'imprimer en codes-barres 
sur l'imprimante HP-IL grace au module X-Fonctions. IL 
est dû à Winfried Masschke (PPC CJ VON4P44c "BaAp"), 
J'ai surtout changé l'initialisation. Pour entrer PCB 
je vous conseil d'utiliser Un programme du genre LBX 
(losd byte) à cause des nombreuses fonctions synthéti- 
ques. Si vous ne connaissez que le byte grabber, voici 
la chaine du pas 64, difficile à obtenir : 


DATE N 


pas 
03: @4.61.00.80.81 64: OB.E0.01.69.0B.E0.B0 
37: 28.BE.00.00.00 145: taxte nul FQ@ 
53: CO.00.2F 184: 1B.31 


Le programme à transcrire doit ètre le premier en 
X-M, aussi videz le X-F avant de commencer. Vous 
pouvez charger d'avance ce Programme en X-M, c'est 
mêmes indispensable s'il est trop long pour cohabiter 
avec PCB en mémoire Centrale (pensez au SIZE aussi). 
Je conseilles de Compacter et de faire tourner les prog. 
avant ss transcription Car les codes-barres restituent 
tout : nuls, Compilation, assignations. Chargez la 
batterie de l'imprimante et laissez la branchée : les 
codes-barres 64 Pompe énormément, Mode MAN, STAND BY, 
intensité maxi, rouleau de papier noir suffisamment 
long... puis allumez la 41 et XEQ PCB. Introduire le 
nom du programme, R/S,introduire 1e nombre d'octet de 
Programmes que l'on veut par ligne de Codes-barres (1 à 
13), PCB vérifie cette entrée, 1a mémoire tampon du 
lecteur optique peut contenir 16 octets maximum et il 
Y en a trois pour l'en-tête de Chaque ligne. R/S et 
PCB s'arrete aprés un BEEP une fois le travail terminé. 
ALeLBL "PCR" 

CLRG “age” RCLI 
"NON? STD d STOP 
AOFF SAVEP FLSIZE 
RCLPTA “+ + ARCL x 


88eLBL 84 
ISG 83 GTO 92 XEQ 45 


135eLBL 85 

CF 49 RCL 88 16 MOD 
LASTX + ST+ 49 STO 18 
156 88 ** RCL 87 


à : B4eLBL 68 RCL 91 DSE X - RCL 11 
FOTTS" DOM ONE ete fc 12 + + STO 11 RCL 89 + 
= 510 85 KOY ST0 83 16 RCL 8 E 255 MOD X=4? LASTX 


“OCT/L?*  PROMPT  PHRDH = + STDiI 
13 KDY? KOY 12 + 
PSIZÆ E - E3 , 
STO 83 R?t SF 12 

® 96e” 256 7 KTON 


STO 89 ASTO 82 RCL 83 
INT 8999 + E3 y 
96+LBL 82 STO 88 

DSE 85 OCTO 42 RTH 


168eLBL 12 
LASTX + LASTX MOD RCL 88 ADY ACX A1 
XTOA RL [ XEQ 86 ADV PMRDN PHRUP 
STO 86 È CT AUTOIO SF 17 CLX 
_ . : M dé *  DSE 84 GO 11 7 ACCOL 118 RCL 83 INT 

STO 84 GETX STO [ “€ 

FS?C 99 XEQ 85 RCL 46 Le à Le 
PHRIM BEEP 

188eLBL 13 
Lale | 1876LBL 11 RCL IND X CLA XTOA 
AfiA SF 89 ALENG RCL 84 SF 25 K=97 ACCOL X29? 
RCL EU XO c KeŸ9 , X=Y2 ATOX QUTA RDN  INSTAT 


KOY XC) 88 XC)Y 


ENTERT STO IN 
XC) © KOY RTH os 


ST+ 89 DSE 81 GC10 @4 
143 - K(-82 97 64 - 


FS? 43 GTO 81 RDH 
ISG X GTO 13 AB AD 
CLA ARCL 82 .ED. 


TIOLBL 0 KC=07 4 32 - x(-97 
PARDH BEEP SF 11 OFF 3 610 8j 810 07 Fe 
RCL 88 GTO 12 CO 84 


Dix octets (+3) par ligne donnent un code-barre de 
26 à 28 cm de long. Pour économiser 1e papier, lorsque 
la moitié des lignes ont été imprimées, arretez le 
Programme ( pas avant la fin d'une ligne car le regis- 
tre © est modifié...), Coupez la bande et réintrodui- 
sez la dans l'autre sens dans l'imprimante pour utili- 
ser l'autfe moitié du papier, Si le papier vient à 
manquer en cours d'impression le système s'éteint 
sprés un BEEP, remplacez le rouleau (ou retournez 1a 
bande), imprimante sur OFF puis STAND BY at rallumez 
la 41, elle démarre automatiquement et La ligne inter- 
rompue est réimprimée. Mais si le papier vient à 
meñquer pendant l'impression d'un octat il y a PRINTER 
ERROR, faire alors AEQ &@1. 

Quelques renseignements sur le fonctionnement de PCB : 
pas 356 octets 

03 arme les drapeaux 21,25,26,31,40,48,55 

16 imprime le nom du Programme st le nombre d'octet 
25 13 octets maximum par ligne 

29 SIZE 12 + nombre d'octet par liqne 

37 en-tête de fichier UATA 

62 fin du programme 

63 accède dans la 4-M et en rappelle un registre 

13 plus de papier 
107 décode un registre du Prog. transformé en fichier 
116 valeur décimale d'un octet de Programme 
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117,142,159 compose le l“ code de controle d'une ligne 
135 compose le 2‘ code indicatif 

140 =16, à remplacer par 32 Pour avoir un prog. privé 
152 compose le 3** code indicatif 

168 routine d'imprassion des lignes 

174 nécessaire pour éviter un crash si déja en PWRUP 
184 mode échappement 

185 code du nombre d'octet à imprimer 

188 routine d'impression des octets d'une ligne 

189 rappel de la valeur décimale d'un octet 

194 imprime un octet nul 

198 test du papier 

204 fin de ligne 


I1 faut faire attention à une bug des codes-barres 
lorsque le deuxième octet d'un label globsl arrive en 
fin de ligne, le lecteur optique interprète cette 
instruction comme un END set termine la lecture, les 
autres lignes ne puuvant être lues. Il n'y a pas de 
solution programmable simple; lorsque la chose 5e 
présente, il faut changer le nombre d'octet par ligne 
ou introduire un nul pour décaler l'instruction. 

Je vous donne deux exemples de programmes en codes- 
barres à 10 + 3 octets par ligne. RST rétablit tous 
les drapeaux 26,29,31 armés, FIX 2, DEG. TA (test 
de l'affichage) est un programme démonstration de 
B. Wickes qui "allume" un maximum de sègments à l'af- 
fichage; appuyer sur PRGM puis R/S pour sortir de cet 
état délicat. 


21 LBL'TA 86 ARCL L 18 AVIEW 
02 "247,248,0,0,49,0,33,216" 11 STOP 
Q3 RCL M 87 ARCL L 12 X<3d 
84 "2,58,2,58,2,58" 88 ARCL L 13 END 
@5 ASTO L 09 X£<)d 
TREDEZ b (T12@) 
- CODES-BARRES 


J'ai beaucoup travaillé sur les codes-barres. 
Voyez quelques exemples "faits main" d'abord. Un 
Programme [nverse-drapesaux de R. HILL présent dans le 
PPC ROM (IF); j'ai simplement enlevé le ABS du début, 
peu utile. Ce programme inverse l'état, (arme ou 
désarme) du drapeau dont ls numéro est placé en x . 
Ca marche pour tous les drapeaux de Q à 55 mais 
certains sont réinversés à ls fin du programme (53 st 
54 notamment). 

J'ai trouvé comment est codé l'octet de controls 

d'une chaine alpha ; c'est comme pour les programmes: 
la somme des valeurs décimales des octets suivants 
modulo 255. Je peux donc faire les codes-barres des 
Caractères de la deuxième partie de la table des octets 
mais codés sur trois octets, comme pour le "hf"; 
Ce Caractère n'est pass encors satisfaisant : en mods 
programme il s'isole st ne peut être concaténé à une 
autre chaîne. J'ai encore quelques problèmes avec le 
néant (caractère nul). 


Les fonctions ST+,-,/,x sont des classiques d'un 
octet (plus un de controle). 

La fonction >__ (canard!) de code d'assignation 
4,1/8 8 été trouvés dans le journal PPC USA et permet 
un saut absolu du pointeur programme dans la mémoire. 
En mode programme elle place un GTO 00 compilé (sauf 
avec le postfixe WQ), une application à creuser... En 
mode calcul, pour avancer le pointeur de o octets et 
r registres, donnez 16 xa +r Comme argument au canard. 
Les arguments indirectes (touche jauns) donnent des 
sauts en arrière. 


Exemple : 
argument 15 + saut de 15 registres (c'est le maximum) 
IND 32 ui 2 octsts en arrière 
18 " 15 octats (2r +1) 


Le canard ne prend pas les arguments alpha et exposant 
mais accepte las registres de la pile (touche : ) 


srgument L æ saut sen avant de 5 registres 


X " 4 " 

Ÿ " 3 " 

Z 2 "” 

T L * 

IND L + avances de 1 octet et recul de 4 registres 

X " 3 " 

Y " 2 " 

Z " l " 

T " Q " 


On peut ainsi sauter d'un programme à l'autre, ou dans 
la table d'assignation, ou en X-Fonctions (attention 
alors, ne faites pas de modifications ni de BST). 

Un argument 0G cause une recherche de LBL Blet, s'il 
est trouvé, un code représentant son adresse relative 
Par rapport au point de départ sst placé en programmes. 


_- "HP-41"_ 


LE UN 
ste (IN sT- (MINE 
STs HE ST/ MU 


CARACTERE # re 


DAAEEETEE CTNTUNE 


BYTE JUMPER 


TXUNNN 











JÛ 6 b1 


S131 


nnnnnnnnnnnnnnnntnnnnnnnnnnnnnnnnnn 


N 


v 


7 
1" 
—\ 
2 
mm 
#1 
mm 
— 

nm] 
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Le dernier petit code-barre, c'est un vénérable 
ancètre, le byte-jumper ou Cxic. Tout au moins il agit 
Comme tel sn mode Calcul, et il place GTQ 80 en mods 
nrogramme, 


DB est un Programme ds conversion d'un nombre déci- 
mal (de @ à 255) en binaire qui me sert pour faire des 
codes-barres (module X-Ff nécessaire). À la fin de son 
exécution, le nombre en x et l'état des drapsaux sont 
COnservés; le résultat binaire se trouve en alpha. 

Si on veux utiliser DB à l'intérieur d'un autre prog. 
plus important, on remplace AVIEW par ANUM pour trans- 
Poser le nombre binaire en x (les zéros de gauche sont 
alors effacés). 


Curiosité : si on utilise le lecteur optique durant 
l'exécution d'un PIOgramms, rien ne se passe en apps- 
Tencs, mais ce qu'on balaye est sccumulé dans la memoire 
tampon et s'exécute quand le programme s'arrète, Par 
exemple, entrez le Programme : 6,LBL@1,TONE 1,DSE X, 

GTO @1, sortez du mode PRGM et placez-vous au début 
(RTN), balayez alors rapidement cinq fois de suite 
l'étiquette R/S puis relachez l'intérupteur, le prog. 
va s'exécuter cinq fois de suite! 


Pour finir, une question pertinente : 
le V de HP-41 Cv 7 Very good ? 


LL, HW, U-V ok ?(S,{:wm)TREDEZ b. (T 120) 


que veut dire 


52 24 

AZ + 

DB4 STO M 

85 8 

96 ST/- NM Ai+LBL “nB* 
97 MOD 

48 RCL d QD «+ 

99 KX<> M AZ FIX «a 
1@ INT A4 CF 29 
11 SCT IND *%* AE XC>F 

12 ARCL *X as E 

13 KX<>Y A7 , 

14 X<> 0 AS —-7 

15 X€> N A9G+LRL A1 
16 K<> d 19 FS? IND 
17 FC?C INDO > 

18 SF IND 9 11 APCL Zz 
19 X<> d 12 FC? IND 
2A STO M 2 

21 RDN 17 ARCL 
22 12 14 ISG x 
23 — 15 GTO 41 
24 SCI IND * 16 AVIEU 
25 ARCL x» 17 RT 

26 K<> 0 18 K<3F 

27 STO d 19 FER 

28 RDN 

29 CLA 

A ENN 


TREDEZ b, (120) 


LBL Id Inverse le drapeau (d'apres PPC-ROM IF) 


D 


L 


TE 


L3 


MNT PARENT TNT EEE 
NN 


L5 


ou 


QUI COOUAAUOAAE TE PERTE 


L7 


nn EU NE 


8 


rames 


Fr 


l 
| 


| 


Fr 


Daniel MEYUR, 

iv, Jardin Ecole, 13, 
ae?0 Dison, 

BELSGICUE. 

PNCLTS9, 


TRI: voici un programme de mon crû, il trie 
les renistres mémoire par ordre croissant en 
utilisant uniquement la pile. Pour l'exécuter, 
vous placez dans X un nombre de la forme opp,ddd 
où ppp est l'adresse du premier registre à trier 
et ddd celle du dernier. Vous pouvez également 
trier un renistre sur deux en plaçant dans X un 
nombre de la forme ppp,ddd02 où un registre sur 
trois en plaçant ppp,ddd03 at ainsi de suite. 

Ce tri est appelé tri par permutation et éffec- 
tue N#(N-1)/2 permutations si N est le nombre 

de reaistres à trier. Cette opération est exé- 
cutée en un temps moyen de G,125%N/?, 

I1 est possible de le transformer en tri décroi- 
ssant en remplaçant à la ligne 25 le test X>Y? 
par Xé<Y? 

P11: en quoi consiste exactement le manuel 
technique de la 41 ? 

Lecteur optique: tu ne m'as toujours pas 
répondu pour un devis des photocopies. 

Voilà, je crois que je vais en rester là 
pour aujourd'hui. 


81eLBL “TRI” 
ENTERT ENTER 1E-3 - 
KOY STOL XC)Y 234 BL 83 
RCL IND L X)Y? CTO 84 
SF 20 RCLL RIM XC)Y 
89eLBL 81 
RCL IHD L 31OLBL 84 
RDN GTO @2 
11eLBL 82 
ISG L GTO 83 FC? 28 34eLBL 88 
GTO 05 XC) IND Y RIH ENTER? ENTER 
KO) IND Z LE-3 + STOL XxOY 
CTO 91 END 
18eLBL @5 SF 14 


ISC Y GTO 68 BEEP RTH 


luelques PTOQrammes: HIST imprime un histo- 
QTamre pour une année, je crois que les demandes 
de données sont assez claires sans que calà ne 
nécessite ces explications. CCDE et DECCOE sont 
des versions améliorées et optimisées de celles 
publiées dans KEY NOTES, pour ceux qui ne les 


DRE TE 4 L'cmët “e D 
Java 


S 4008. 
dd 


Mm 


& 
4 
o 
o A2 m 


connaissent pas, j'en rapnelle le principe, 

CCOCE permet de transformer Le texte qui se trou- 
Ve en alpha en un texte complètement illisible 
puisque les caractères sont remplacés par des 
"pâtés" différents mais semblables l'affichage. 
DECOOJE permet de retrouver le texte orijinal. 

La clé du code est le nombre placé à la liane 15, 
VOUS oouvez le modifier mais i1 d,it être compris 
entre C et 178. 

AV est le pronsramme publié dans MIEUX £ STRATE- 
BRIE 50 &, Initialement, ce oroaramme était prévu 
NOUT 1P67, après auelaues modifications, il de- 
vient agréable à l'usane et pas lassant du tout, 
Ce oui est rars oour un jeu! Voici les règles: 
VOUS Prenez votre bain et votre savon (Lux, Cadum 
"onsavon ou autre, la marque n'a pas d'imoortance) 
VOUS Schapne des mains (nue ceiui à qui celà n'est 
jamais arrivé me souffle la Première bulle), 

Vous devez le retrouvez en "soionant" au hasard 
dans l'eau, au début, la machine vous demande 
MRAC=P" vous introduisez alors un nombre quel- 
Conque, fous prenez une feuille de papier quadri 
116 et vous trarcez un rectanale aux dimension de 
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ce rectanole 


votre choix, le cord inférieur :le tan 
servira d'axe et le hord ‘rsit d'ave Y, Fe rec= 
tanale vous servira de bai noire, la machine vous 


Serande ensuite 
{nonbres de 
eur). ‘ous répondez à 12 
introduisant 
SAI Y=? 
répondra oar 


ce ES 


Vous 


votre 
votre 


les dimensions 
carrés de 5 mm en lonnueur st en 
demande FTSAI “27 en 
at à la 


2SSai 
2ssai 
un rorbre 


suivant 
suivant 
compris 


la baianoire 


lar- 


1eman— 
la machine 
entre 1 et G 


si vous avez touché le savon (ré#férez-vcus au 
schéma). Si vous l'avez touché sur un bord, elle 


vous indiquera quel 
la direction 
rebondir olusieurs 
"eLCUF'" 


dans 


noire. 
touché le 
centre vous avez 


pas 


sera le 
savon, Si 


bord et le 


onnosée en a'lant 
nar9is 
vous n'avez 
vous l'avez touché en 
La machine 


sur les 
messaoe 


Fos 


jsaoné, 


savon 


VOUS 


repartira 
peut-être 
te 12 bai- 
son 
laisse un 





Our l'alphabetisation,orire normal ou inver 
5e,j'ai :implement reconuuit AO et jp de 3o- 
“er HATIT plus quelques petits Changements :A914: 
ut ievenu L3L 5 st 43 LEL a et j'ai ajouté le. 
eux lonctions:F5?9) Z€)Y au pas (j'aurais du ec- 
rire Ligne 1!) (teen) 11-140 
PACS A: + 

LiG 53 O1 % 4:73; facement de la pile,is = 
aloi 2t du drapeau 01. 

COS à OÙbiLes 1onnées conmenceront au 
registre 10(vous pouvez cnan 
ger). 

007 à 015:Zhoix du type de ionnées, po 
ur las ionnées alpha le dra 
peau ©1 est armé et le mode 

“alpha"est conservé. 
50: Boucle commune u'a2ntrée des 
ionnées à classer, 
SL à OAZ:Choix du sens(croissant ou 
non) ju rangement,drapeau 
00 armé si 1ecroissant. 


016 à 


044 - 059rInitialisation des pointeurs 
ROO st RO1 

053 à 0‘4Aiguillage vers le traitement 

alpha(LäL b) ou numerique (L 
BL E) suivant l'état du drape 
au 01 
64:Recherche des extrèmes(BX) et 
Stockage des données par ordr 
croissant ou non(drapeau 00) 
06$ à 068:Diminution du bloc de registre 
à tester et si la boucle n'e 
st pas finitaller en"E" 

067 à 074: Routine d'affichage du bloc 
de données utilisant la fon 
ction SV du FPT-ROM 

079 à 140:Tri des lonnées alpha avec 
le programme d'application 
du PPC-RON 


05$ à 0 


NOTA : 
La HP utilise le code ASCII vour classer 3es 
données alpha,en consequence le mot "alpha" sera 


placé après "BETA" 
"ALEHA"... 


qui sera lui-m 


ême placé après 


Je rappel que la "41" n'accepte que SEPT octets 


par registre. 
MODE L'EMP@OI]: 


+zharger le progamme,verifier,compacter le, 

+Lancer le en faisant XEG"TRI" et après avoir 
verifié qu'ik y aura assez de place dans la memoi 
re et que le PPC-ROI: et le X-FOMCTIOI. sont bien 
dans les ports de la HP. 


auantaae: le savon na fond pas... 

3onnes vacances à tous! 

Ganiel MEYER T5S,. 
B1eLBL “SAV“ 1SéeLBL d 
" + SAVON +” AVIEN 182eL8L b 2 1 2 » M0a 5 4 
PSE CF 29 FIX KOY KC=Y? GCTO 87 # INT RIN 
“RAC=?- PROMPT STD 88 STO 84 - ABS RECL 84 
“DIN. X=2°  PROMPT KOY - 16S0LBL à 
“DIN, Y=2* PROMPT x) RCL 88 9821 + ,211327 
1 - SO 86 XCOY 1! 1126LBL 07 + FRC STO 88 .END. 
STO 97 XEQ d STO 11 #97 GTD 86 CHS 2 7 
RCL 06 XEQ d STO 18 INT 
2 / CHS STO 85 8 
STO 12 119eLBL 86 
#97 CTO 85 1 + 
HOLBL € 
“ESSAI X=2-  PRONPT 
“ESSAI Y=2- PROMPT 81eLBL “CODE” 
XOY 124eLBL 85 CF 98 GTO 88 
RTH 

48LBL B 
1SG 12 CLD STO 81 126LBL 89 
KOY STO 82 RCL 11 - “PLOUF AVIEM TONE 9 4LBL “DECODE” 
STO 89 ABS 2? (=? TONE 4 PSE GTO C SF 08 
GTO 89 RCL 81 RCL 18 
- STO 88 ABS 2 Kx(=Y? B6+LBL 88 
GTO 89 RCL 88 ABS ALENG ,1 % 
RCL 89 ABS + %=97 133+LBL 08 
GTO 88 RCL 99 3 *« "SPROTCH" AVIEN PSE 18+LBL 81 
RCL 88 - CHS 5 + “GAGHE X:"  ARCL 18 ISG X FS? 38 RIN ATOX 
STO 43 XEQ a RCL 95 + ‘+ Y:" ARCL 11 AVIEN 118 F5? 88 CHS + 


INT 51e 98 STs 89 BEEP BEEP BEEP 


RCL 11 RCL 89 + id 
7 XEGb STO II 

RL ï RCL 98 + CLA ARCL 12 ‘+ ESSAI" 

RCL 86 XEQ b STO 18 RCL 12 2 KC2Y9 "+5" 

RCL 93 *2ZOUP: * PROMPT 

ARCL 93 BEEP AVIEN 

PSE GTO C 


022222222220 0 


yril ZIGNER (T282) 
1, Rue de morlaix 
14800 SAT'T-HERBLAIN 


SAINT-HERELAIN le,30 juillet 1983 


‘her Jean Daniel, 

:'est la premiere fois que j'envoie unar- 
ticle au club et n'étant pas un as de la machine 
à écrire j'espere vous me pardonnerez las fautes 
en tous genre (taper avec un doigt nesitguere fcci 
le). 

Le Drogramme que je sropose,permet de trier des 
valeugrs alpha © num riques.ayant le PPC-xROûù 
depuis neu ie temps j'ai litéralement isvoré le 
livre l'accompazgnant et en lisant à ia age 40 
la sous routine AL (alphabetize X & Y ) et la 50 
us routine 2X (loc extroma ) j'eu l'idéé le fai 
re :e progæamme. 

À n QTMAHUT : 

Il utilise la fonction -X jui donne le vlus 
grand"en Ÿ ainsi que son registre an À et le nom 
bre le nlus petit en X et :on registre en :1. 

Si les lonnées uoivent être :lassées par or 
ire croissant il suffit ie mettre ja ‘aleur ds 
dans le registre specifié par ! st la valeur ie 
Ÿ ‘ans selui 5uesifié par ‘.Ensuite il faut limi 
nuer d'une unité 1. "“fenètre" leg pointeurs memoi 
res paur °X st :e recommencer jusqu'à 2e que tou 
les registres ont été jus. 


K NoHAgE 


XTOR RDN GTO 81 .END. 


+La "41" demande si les données à traiter 80 


nt “ALPHA?",.Repondre © pour oui ou N pour non puis 


relancer le programme par à,5S, 


+La KP affiche "DONNEE: _";entrer vos données 
une à une er les espacants par des R'5.Vous aurez 
remarqué qu'elle n'a pas quittée le mode "alpha" 


si vous avez reponau "O" au 


premier message. 


+Quand vous aurez rentré toutes vos données 
à l'affichage du messase reponre par ?S seul, 
+Au message M"DECROISSANT?" repondre "O" ou"x" 


Suivant votre choix 


puis RS, 


+Après un "certain temps" proportionel au nomme 


bre de données,le resultat defile à l'affichage 
, Pour revoir il suffit de faire ":" en moae‘us 
er.Je raprel que les valeurs numeriques nulles ne 


sont pas vues à l'affichage mais 


même leur TONE 38. 
Tous les TONE 9 


ont entenë quand 


que vous trouverez sont des 
TONE 89 (3F 5;),question de choix..., 


Voiçi (enfin) le programme: 


901eLBL"TRI" 061 FS? 00 
clst STO IND M 
CLA FC? 00 
2F 01 STO IND N 
005 1 065 ISG 01 
5TO 01 GTO E 
AOù 6LBL D 
SALPHA?" SF 00 
PRONPT RCL 00 
©14o ATOX 070 XROr'"Bv" 
79 RTN 
L=Y? éLEL b 
SF 01 CF 10 
FC?01 ENTER? 
015 AOFF 075 ENTERT 
F ox FRC 
LL à ST-Y 
MOONNETE _" E-3 
TONE 9 ST-T 
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O20 F20MPT 080 5T#Z Mr PELANNE J-F 


FE?522 / 60 rue St. Placide 
GTO OC + 75006 - PARIS 
FO? 19 & 
MO à VS T191 
025 AZTO X 085 XC>Y 
6LBL 00 6LEL 06 Cher Monsieur, 
STO IND 01 {ES a 
I£G 01 R? 
es rt Je propose une version améliorée de FACTO ( PPC T 
030 STO A 090 SE Y np. > 
6L35L 3 GTO 06 Tout d'abord il a l'avantage de calculer le size 
cal 00 : LAST X nécessaire pour l'exécution de n !,en effet dans 
“es SANT?" E-3 la version initiale, il faut connaitre l'ordre de 
2 M grandeur de la factorielle que l'on veut calculer, 
55 rie 095 4. de ici plus la peine de se creuser la tête ( ligne 
OFF Gto D 004 à 017 ). Nécessite le X Fonctions. 
es M er 2 cas se présentent 
040 AVIEW 1006LBL 01 1) si n£69, on calcule n! puis on en cher- 
75 "XX" che le log qui nous donne le nombre de chif- 
BMET ARCL ID fres de la factorielle, puis on divise celui 
SF 00 F . ci par 7 ( 7 chiffres sont stockés par regis- 
045 : L 01 105 Er tre ) puis on ajoute 7 ( 7 par ce qu'il faut 
_ RCL M ces registres pour le fonctionnement du prgm 
53 FS?C 09 et finalement PSIZE donne la taille mémoire 
de GTO 01 nécessaire. ( pour ce qui est de la suite du 
E1 FS7 00 pr&em, je rappelerai l'algorithme plus loin ). 
050 ++ 110 XYT 
STO 01 X<Y? 2) si n»>69, log n! est toujours égale à 100 
STO 00 RTN (Yn ), c'est pourquoi la valeur 100 pour le 
FS701 X=Y? size a été choisi. Il permet de calculer 
GTO b GTO 03 340 > n > 69, si le n à calculer est supérieur 
O055@LBL E 1156LBL 02 à 340, il faut placer avant PSIZE ( ligne 076) 
RCL 01 FS?C 10 mmm où mmm est la taille du size désiré puis 
XROH"BX" 1TN ajouter avant le GTO 09 ( ligne 078 ) un RDN 
. nn : afin que la pile ne soit pas perturbée. 
060 X<3IND 01 120 X<)JIND Z Ce prem tourne en FIXO au lieu de ENGO, 
J'ai remplacé les lignes 09 à 011 par RUNNING .. 
121 RTN MEMOLRES : qui est plus esthétique et économise des octets. 
LeL 03 Pod idrsesé de los de Les lignes 018 à 020 rétablissent la pile 
R? sue Mi. Dan leS Rue Les lignes 090 & 091 rétablissent l'état des dra- 
rt ati lenoi se diifésaiee peaux modifiés par les lignes 087 à 089. 
125 5F 09 tation sur les N registres Les lignes 117 & 118 permettent d'afficher et de 
ER ie ionnées prévenir lors de la fin du calcul de n! sous la 
: R10 : :La première forme n'= 
ARCL IND Y à *s 10 : À chaque R/S on a successivement le contenu de cha- 
ASEHF ionnée est en R10.Le nombr à : à 
170 ASTO T le registres utilisés est que registre ( 7 chiffres ) COMME RUN la facto- 
om L " équivalent au nombre de don rielle. J'ai aussi remplacé les lignes RCLO2 % "O" 
( ASTO-4-) nées;Prévoir le "SIZE" cor par CLA et ARCLO2 qui donne au dernier R/S directe- 
AL? respondant. ment le nombre de zéros à ajouter sans avoir à 
OR TTT appuyer sur æ-. 
ASTO M Le remplacement de XEQ55 & LBLS5 par XEQ10O & LBL10 
125 "ET" font gagner 1 octet. 
RCL 
FS?C 09 Je rappelle l'algorithme : 
GTO O4 4 Ç ; 4 
XD? Il consiste à multiplier successivement tous 
140 GTO 02 les paquets à partir du registre de plus 
END. (287 octeés) faible poids. Le cas échéant la retenue sera 
rajoutée à la valeur du registre suivant. 
CODES HEXADECIMAUX DES LIGNES: Lorsque tous les paquets ont été multipliés 
029= FO par IL, on recommence avec IL + 1 jusqu'a ce 
101= F2 2A 01 que le facteur multiplicateur ait atteint la 
en 
127= F3 2A 24 Bernard Allaud ne donne pas les codes des chaines 
131= F1 O1 synthétiques mais je vous les donne 
Z 7 { 
. . . _ 00 90 00 00 ligne 021 : F3 31 00 00 
ligne 108 : F4 O4 31 OO 01 


Sn ligne 116 : F3 7F 21 3D 
respectivement 243 49 OO 00 
244 04 49 O0 01 


BIeLBL “CLEM* 2435 127 33 61 


Je "rtiae" Ce programme initiaiise 
#3 RL i la nenoire etendue, :1 DOt- ceux que les codes HEX exaspèrent ( R.S en 
34 FU charse en © une vaieur autre }). 
45 permettant de considerer 
46 4) [ Le Jar Pet du nid Mon programme sophistiqué au point de vue 
97 5T0 48 -le X-F conne nenoire n° de la présentation et du déroulement de 
98 RCL [ 46. Il charge ensuite celui-ci, est entièrement automatique deux 
39 STD c dans cette APaoire une exemples 
18 END valeur indiquant là tin it ] ë i 

pre Lorsqu'on fait XEQ "FAC affichage de N= ? 
Lignes synthet iaues cT on rentre 55 ( par ex ) R/S 

LBL'CLEN | affichage de RUNNING ... puis au bout de 
92: F5 A1 69 48 Fu 4m END 36 BYTES quelques mns bip & 55! = 

R/S 0001269 R/S 6403353 R/S 6582759 .. 

95 . FF FF FF FF FF FE R/S 4000000 R/S 7,0000000 ( nb de zéros ) 
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autre ex : n = 300 


300 ! = 03506057 5122164 4063603 5370461 
2972686 etc ... 
puis 70,0000000 zéros. 


Le maximum calculable pour un 41CV est 790! 


A titre indicatif : 


50! æ SIZE 016 
100! = SIZE 028 
150! = SIZE 039 
250! = SIZE 069 
300! = SIZE 085 
340! = SIZE 098 


Happy programming 
J-F PELANNE T 191 


91eLBL “FAC” 9 DSE 82 GTO 82 


me ro GTO 84 RCL 88 FRC LASTX INT 
DSE X RCL 84 ST/Z « 
K=Y? GTO 08 RDN 7 /  63eLBL 03 4 STO 8 “aire” 


ALENG 7 # STO @2 


LASTX + PSIZE STO IHD @6 RCL 86 x=87 
GO 81 Rt RCL 44 KEQ 18 DSE 81 
176LBL 89 ST+ 03 Xt2 ST+ 85 CLX 
L11eLBL 85 
RDN LASTH KO lee RTR FIX 8 CF29 CLA 
KEO 18 “RUMHING.…. D te uen 


AVIEU CLA SID@2 E-7 75+LBL 88 
STO @6 E STO 81 PSIZE RDN GTO 89 


6,086 STO 88 STO 43 + 
E-3 STO 94 X?2 + 


PROMPT RCL 88 FIX 7 


STO 85 CLX Lara dé 
79eLBL 61 HEXTLE 

41eLBL 82 Rt RCL 85  REGMOVE ABCD® ARCL IND X  ASHF 
PROMPT DSE X GTO 84 

RCL IND 88 RCL 81 * + XTOR CLX RTH 
CLA ARCL 92 

ENTERt FRC STO IND 49 dre 

- + ISG 88 GTO 82 

%s97 XEO 83 RUL 43 RCL O STO d XxC)Y he dE x 

STO 98 SIGN ST+ 91 SF 26 DAY RTN 10 67 Em. 


93eLBL 84 


PDA 2 
POUGEON Olivier T62 


6 Bd Chanard 


56170 QUIBERON ze 12 04 83 


Cher Mr DODIN 

Toujours fasciné par les possibilités du X-Fonctions , je vous 
envoie ce petit programme qui m'aide beaucoup dans la mise au 
point de mes programmes quand ils sont longs et modulaires. 
Ce programme s'appelle "ORP" (pour organisation des programmes) 
son but est de remettre en ordre (à l'aide du X-Fonctions)} 
les programmes en mémoire centrale. 
Par exemple , si un de vos programmes se présente comme suit 

LBL "PROG" 

LBL 01 


LBL O2 
LBL 25 
LBL 04 
LBL 03 


END 
Et que pour des raisons de facilité de lecture, ou bien pour 
structurer un peu , vous désiriez avoir les labels numériques 
en orûire croissant . 
Principalement , 2 soiutions s'offrent à vous 
- Soit recopier les lignes de programme 
concernées par la modification , et alors 
si celui ci est long et synthétique , je 
vous souhaite de longues heures (‘'é,ugère 
à peine) d'amusement.Même si on est doué 
pour la manoeuvre du "CRIC" et autres 
"BYTE GRABBER*" , ça peut être long ! 
- L'autre solution , si vous êtes aussi 
sconomes de vos forces que je le suis 
utiliser le petit programme qui suit: 


MODE D'EMPLOI 

1) Vous entourez le segment de Programme que vous voulez 
déplacer d'un label alphabétique et d'un END (par XEQ "END") 
Si l'on reprend l'exemple précédent , On obtiendra quelque 
chose ïu type 


LBL "PROG" 
LBL 01 


LBL 02 
END 

LBL "O5" 
LBL O5 


END 
LBL "og" 
LBL 04 


END 


LBL "O3" 
LBL 03 


NED 
2) XEQ "ORP" 
La machine vous demande alors le nom du premier programme 
celui du second , ETC. Quand vous avez introduit les noms dé 
tous les programmes , pressez simplement R/S. 
Toujours avec notre exemple , il aurait fallu répondre 
03 ,04 ,05 ,R/S 
Après avoir éffectué la réorganisation le programme affiche 
*FINI" en vous restituant la machine avec ROO ,ROI et la pile 
de modifiés . 


81eLBL “ORP- FC? 25 GTO 12 GETREC 
RCLFLAG STO 81 FIX 8 SF 25 XEQ IND 09 AVIEN 
1,81 STO 88 18 “LST- 1 + GT0 1 
CRFLAS  AON 

48eLBL 12 
114LBL 88 15G 88 GTO 18 -“LST” 
"PROG “ ARCL 88 “+ ?- PURFL RCL 81 STOFLAG 
PROMPT FC?C 23 GTO 89 *FINI* AVIEN RTN 


APPREC  ISC 88 GTO 88 


21eLBL 89 S8eLBL 81 
1:083 STO 88 AOFF SAVEP RTK 
S3eLBL 82 
PCLPS RTH 
25eLBL 18 
f 56eLBL 83 
GETSUB SF 25 PURFL 
27eLBL 11 RTN END 
"LST*  SEEKPTA 


PRECAUTIONS D'EMPLOI 

* "ORP* doit TOUJOURS être avant la partie de la mémoire 
centrale que vous modifiez , et ceci à cause de la fonction 
PCLPS , qui efface tous les programmes à partir de celui dont 
vous lui donnez le nom. "ORP" est donc un des rares programmes 
qu'il est bon de placer en premier dans la mémoire ! 

* Pour cette même raison donnez lui les noms de tous les 
programmes qui suivent le premier que vous voulez déplacer . 

* N'oubliez pas que vous devez avoir assez de place en 
X-Memory. 


STRUCTURE DU PROGRAMME 
- Lignes 1 à 10 
Initialisation du programme et création du fichier contenant 
la liste des programmes : "LST". 
- Lignes 11 à 21 
Chargement de "LST" 
- Lignes 21 à 24 
Chargement de OO avec la valeur indiquant l'opération à faire 
sur le fichier "LST" dans la boucle du LBL 11 
- Lignes 25 à 42 
Boucle ou , à chaque passage , on relit "LST" à partir du 
début. À la Fin de cette boucle , on incrémente 00 afin de 
faire l'opération qui convient au passage suivant. 
- Lignes 30 à 39 
Dans cette boucle , on fait , sur le programme dont le nom 
est dans "LST* , une opération déterminée 
SI ROO=1 
Sauvegarde du programme en x-Memory 
SI ROO=2 
Effacement du programme en mémoire centrale. 
SI ROO=3 
Recopie de ce programme à sa place en 
mémoire centrale , et effacement du fichier 
correspondant en X-Memory 
- Lignes 43 à 49 
Effacement de "LST" et restauration de la machine à son état 
initial. 
- Lignes 50 à 60 
Sous programmes contenant les opérations à effectuer. 


N.B. 

A l'origine ce programme est conçu pour traiter 10 labels , si 
on veut augmenter ce nombre , il suffit de modifier les lignes 
5 rt 7 pour les remplacer par les valeurs désirées. De plus 

ce programme ne tiendra pas compte des erreurs dans les noms 
des programmes : Attention aux fautes de frappe ! 
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Voila donc pour ce programme mais je voudrais aussi parler un 
peu de la réunion que nous avons eu chez Jacques VAUCELLE 

le 2 Avril dernier. 

Je pense qu'il faut d'abord souligner la gentillesse de Jacques 
(qui n'a d'égale que 5a compétence) qui nous à accueuilli 

toute une journée chez lui. Toute la journée nous avons pu 
comparer les différents périphériques présents et “changer des 
programmes . Coté litterature , nous avons pu voir , entre 
autres , le manuel du PPC ROM ; À mon avis , c'est un chef d'oeuvre 
on souhaiterait que toutes les brochures soient faites de cette 
manière (tout spécialement chez HP) 

Deux membres du PPC Paris étaient présents (Robert Schwartz 

et Francis Rosange) ce qui nous à permis de découvrir le N° 1 
du JPC.A ce propos , il est dommage qu'il n'ait pas été pos- 
sible de tomber d'accord avec le chapitre de Paris sur la 
publication d'un journal commun . En effet , le journal de 
Paris s'il n'est pas encore aussi “toffé que Le notre , contient 
déja des choses très intéressantes telles que , notamment 

un programme de déprivatisation très éfficace. En fait , ce 
désaccord ne profite guise qu'a nos imprimeurs respectifs , 

et ce un peu au détriment des membres qui vont devoir s'inscrire 
aux 2 clubs pour avoir des renseignements sur leur machine 

(en ésperant qu'un 3° chapitre ne va pas se créer en France). 
Mais il est souvent difficile d'unifier. 

Pour en revenir à la réunion , nous avons pu découvrir les 
transformations opérées par Jacques Vaucelle sur une imprimante 
132 colonnes . Il est impressionnant de voir la 41 "sortir" 5es 
informations sur une "vraie" imprimante. Encore que ce genre 

de périphérique soit plutot réservé aux professionnels. 

Autre nouvelle intéressante : certains magasins parisiens 
“soldent actuellement les différents modules d'applications 
ainsi que le HP-IL aux environs de 275 F. INCROYABLE ,NON ? 

En bref une journée très agréable , très intéressante , mais 
trop courte. Merci à Franck Lebastard de l'avoir organisée ! 


En vue de la TOULROM , il m'est venu à l'idée en concevant 
"ORP" que l'on pourrait concevoir une fonction qui n'aurait 
pas l'inconvénient qu'a PCLPS d'effacer tous les programmes à 
partir de celui dont le nom lui est donné. 
Cette fonction (appelons la PCLP) comporterait , en alpha 
comme arqument le nom du programme à effacer , suivi du 
label ou on pourrait reprendre l'exécution après l'effacement 
de ce programme. 
Par exemple PCLP avec , en ALPHA , "PROGI,ETIQ 
éffacerait PROG1 et ferait reprendre l'exécution après cet 
effacement au label LBL "ETIQ" 
La procédure en microcode serait du style: 

1) Récupération en ALPHA de l'argument 

2) Effacement du programme indiqué 

3) Packing 

4) Branchement au label indiqué 
En ésperant ma suggestion réalisable , Heureuse Programmation ! 


T62 Olivier Pougeon = 
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Marc Chiffoleau 9719 - TL189 
Rue Jean XXIII 


85260 Mormaison 


Cher Jean Daniel 

Une fois n'est pas coutume, j'ai pris mon courage à 
deux mains et j'ai affronté la machine à ecrire . Tout 
d'abord, je te commande TOULROM, ci joint un chèque de 
200 £EK FF. Ensuite, je voudrais revenir au programme de 
la p.27 dans PPCT N°6 : Il v à ne erreur dans Le listing 
du fichier ASCII : IL manque une ligne entre "?R=" et 
"R= ",il faut inserer "Z",IX8K IL peut etre interessant 
de sauver ce fichier sur cartes, pour ceux qui n'ont 
pas le 82161 (c'est mon cas), aussi je t'envois deux 


progeammes pour cela, WRITAS et READAS 


41 LBL "“WRITAS" 4 ALENG 41 LBL "READAS" 
42 "FL NAME?" al X<Y? @2 "DATA?" 
93 AON 42 GTO 4 @3 PROMPT 
@& STOP 43 Xuev? Q4 E3 

95 AOFF ä4 GTO 43 45 / 

46 ASTO Ql 45 ASTO IND L @g6 RDTAX 
47 Ÿ 46 ASHF #47 CLA 

GR SEEKPTA 47 ISG L 08 RCL G@L 
49 FLSIZE 4R GTO @2 29 RCL 4@ 
14 STO 4@ 49 GTO V6 14 CRFLAS 
11 "Nb REG?" 54 LBL 43 11 XOY 

12 PROMPT 51 FS? 17 122 

13 1 52 GTO W4 13 + 

14 + 53 ASTO IND L 14 1BS 

15 SIZE? 54 ASHF 15 LBL 40 
16 XOY 55 ISG L 16 CIA 


17 X<=Y? 56 X<A? 17 ARCI IND L 
7 


L8 GTO 4 57 GTO #6 18 ISG L 
19 SF 25 58 LBL Ya 19 X<o? 
24 PSIZE 59 ASTO JND L 24 RTN 

21 FS?C 25 64 1SG L 21 \PPREC 
22 GTO 04 62 GTO #1 22 LRL #1 
23 “NO ROOM'" 62 LAL 45 236 

24 PROMPT 63 XOL 24 ALENG 
25 LBL ua 6& 1 25 X<Y? 
26 2 65: = 26 GTO 4ÿ 
27 = 66 E 3 27 CIA 

28 E 3 67 / 28 ARCL IND L 
29 / 68 WDTAX 29 ISG L 
34 2 59 CLA 34 X<Y? 
31 + 74 ARCL YL 31 RTN 

32' ABS 71 PURFL 32 APPCHR 
33 LBL @1l 72 E 3 33 GTO Wl 
34 SF 25 73 % 34 END 

35 GETREC 74 1 

36 FC?C 25 75 + 

37 GTO 05 76 INT 

38 LBL 2 77 END 

39 6 


Le mode d'emploi de ces deux Programmes est très simple: 


-WRITAS- "FL NAME?" : Introduire le nom du fichier 
à sauvegarder 

"Nb REG?" : Introduire le nombre de registres 
occupés par le fichier-Attention, 
ce n'est pas forcement la lon- 
gueur du fichier, I] vaut mieux 
introduire une longueur superieu- 
re,la 41 ajustant par la suite 


Quand 14 41 demande des cartes, on les introduit puis 
le propramme s'arrête en affichant un nombre: Notez le, 
C'est la longueur du fichier sur cartes, 


—READAS- "DATA?" ‘introduire la longueur du fichier sur 
Cartes : C'est le nombre atfiché à la 


tin du programme WRITAS 


Voilà, c'est tout pour les fichiers ASCII. 


EYMARD Laurent (T318) 
22 rue du Cardinal Saliège 
02100 Saint-Quentin 
Cher Jean-Daniel , 


je n'ai pas oublié ma 41 C pendant les vacances,et en voici la 
preuve.M'inspirant de mes prédécesseur en matière de sauve- 

garde de fichiers ASCII sur cartes magnétiques (Damien Debril 
et Paul Perona), j'ai pensé réaliser ma propre version du pro- 
gramme.Je la soumets à tous les lecteurs pour qu'il la testent 
gratuitement (l'essayer c'est l'adopter). 

Voici les caractéristiques du prgm: 

-258 bytes(env) 

-Vitesse d'enregistrement : 6 carat./s (en moy.) 

vitesse de lectura:3,5 caract./s (en moy.) 


Le prgm en lui même est simple et je n'ai pu améliorer la 
partie enregistrement.La nouvauté ,;en revanche ,réside dans le 
traitement des caractères placés dans les registres.Ce traite- 
ment ne s'effectue plus caractère par caractère mais par 
registre entier,D'où la necessité du Synthétique pour isoler des 
chaîhes de 6 caractères la partie placée à gauche du séparateur 

et celle de droite.(je ne suis peut-être pas très clair alors, 
rentrez donc ce petit prgm et essayez-le), 


01 LBL'SAVE" 40 ISG 00 
02 "A-REC B-LECT" 41 FS?C 01 
03 PROMPT 42 "+g" 
04 LBLA 43 FC? 03 
05 2,9 44 GTO 00 
06 STO 00 45 LBL 03 
07 AON 46 SF 03 
08 "FILE?" 47 ALENG 
09 STOP 48 X0? 
10 AOFF 49 GTO 04 
11 AVIEW 50 BEEP 
12 SIZE? 51 RCL 00 
13 FLSIZE 52 INT 

14 STO 01 53 € 

15 1,3 54 - 

16 * 55 E3 

17 XDY? 56 / 

18 PSIZE 57 STO 00 
19 , 58 WDTAX 
20 SEEKPTA 59 XC>F 
21 CLA 60 RTN 
22 SF 25 
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23 LBL 00 61 LBL B 

24 ARCLREC 62 SIZE? 

25 FC? 25 63 "Nb de PISTES" 

26 GTO 03 64 PROMPT 

27 ALENG 65 16 

28 24 66 * 

29 Xæ#Y? 67 XDY? 

30 GTO 02 68 PSIZE 

31 FC?17 69 RDTA 

32 SF 01 70 2 

33 SF 17 71 ST+ 00 

34 LBL 02 72 AON 

35 FC? 17 73 "FILE?" 

36 "h" (142,123,2) 74 STOP 

37 LBL 04 75 AOFF 

38 ASTO IND 00 76 AVIEW 

39 ASHF 77 RCL 01 
78 CRFLAS 

79 LBL 06 112 FIX IND X 

80 CLA 113 ARCLX 

81 ARCL IND 00 114 RCL ON 

82 ALENG 115 CLA 

83 6 116 STO M 

84 X>Y? 117 APPCHR 

85 GTO 08 118 CLA 

86 E 119 ARCL IND 00 

87 CHS 120 ACL 01 

88 2 121 € 

89 POSA 122 + 

90 STO 01 123 STO L 

91 X#Y? 124 LBL 10 

92 GTO 07 125 ATOX 

93 FS? 00 126 DSE L 

94 APPREC 127 GTO 10 

95 FC?C 00 128 APPREC 

96 APPCHR 129 GTO 09 

97 GTO 09 130 LBL 08 

98 LBL 07 131 -E 

99 X 207? 132 AROT 

100 ATOX 133 ATOX 

101 * 134 APPCHR 

102 X=0? 135 SF 00 

103 APPREC 136 LBL 09 

104 X=0? 137 ISG 00 

105 GTO 09 138 GTO 06 

106 5 139 BEEP 

107 RCL 01 140 , 

108 X=Y? 141 X<2F 

109 GTO 08 142 END 

110 E 


111 - 


Ce prgm poura, je l'espere être encore amelioré, car,et cela 
est bien évident ,on ne peut être pleinement satisfait de ses 
performances (surtout à l'enregistrement). 

La rapidité du microcode pourait peut-être alléger ce prgm et 
pourquoi pas le remplacer afin d'obtenir les fonctions GETAS 
et SAVEAS du lecteur de casettes mais alors adaptées au 
lecteur de cartes? 


Je désirerais présenter maintenant au suffrage des lecteurs une 
idée de nouvelle rubrique. 


OPTIMISEZI' 11... 

Les consignes seraient simples ‘des sujets de prgm + ou - ardus 
seraient proposés à l'astuce et la perspicacité des lecteurs qui 
auraient pour mission de créer un prgm à la fois optimisé en 
bytes et en temps.Cette rubrique se situerait dans le même 
esprit que son homologue de l'OP, 

ex:le n°15 de cette revue proposait le problème suivant: 


Calculer dans la pile AP et cé : AP= n!/(n-p)! 
CP= n!/((n-p)1p1) 
Voici ce je suis parvenu à faire! 


FACT p ENTERT n , R/S 
LASTX 
RCL Z 


FACT 

/ 
ENTER7 
Rf 
FACT 

/ 


11 octets au total 


Et ous ,quel est votre score ? 


7 7 
A3 et Cia sont calculés en 0,36 sec. 


Pour ce qui est d'un possible changement de présentation, j'y 
suis favorable (malgré la répercussion sur les cotisations), si 
le journal y gagne en solidité et en lisibilité, 





M. et “me HALLES 
55, Chemin de la Glacière 
69600 OULLINS 

Tél. (7) 850.78.81 


le 27.05.83 


OULLINS , 


Cher Monsieur Dodin , 


J'ai passé commande de livres à notre trésorier en même 


temps que le renouvellement de mon adhésion au Club . 


Mais je m'adresse à vous en ce qui concerne les anciens 


numéros de PPC J (USA) , dont j'aimerais la liste . 


Ci-joint une enveloppe affranchie pour la réponse .Merci... 


Ma lettre a un autre but : celui de présenter un petit 
programse qui je l'espère pourra rendre service à 
quelques-uns d'entre nous . 


Nous avons tous dû subir à un moment donné de notre vie 


un examen médical , soit physique soit biologique , en 


nous posant souvent des questions sur son déroulement et 


sa fiabilité . 
Le programme suivant , nommé EMDII pour : 
Moyens Diagnostiques par les Indices Informationnels , 


Evaluation des 


peut aider à l'évaluation de l'efficacité d'une démarche 
diagnostique en tenant compte du paramètre INFORMATION . 
Ces tests font partie de ceux qui sont utilisés en médecine 


dès qu'il s'agit de se rendre compte si la technique de 


diagnostic eat fiable , et par là même , rentable . 


Ils utilisent des tests , des indices , qui mesurent leur 


"valeur" . 
Ces indices sont : 
_ N , le nombre d'individus de l'échantillon sur 

lequel on travaille . 
Une proportion p de ces 
( ils sont M+ ) , et la proportion 1-p est 
non malades ( ils sont M- ) . 
Ces N patients ont subi 
d'un signe anormal ( S+ ) ou absent ( 5- ) 


Exemple : 


On peut alors répartir les N sujets en 4 groupes : 


a = M+ et S+ 
b = M- et S+ 
Cc = M+ et S- 
d = M—- et S- 
_ On définit à partir de celà : 
__ La Prévalence ( PR) : PR ———- 
ee e . a 
__ La Sensibilité ( 5E ) : SE ses 
La Spécificité ( SP) : SP = —{ 
ns L û b +d 
_ La Valeur Prédictive Positive ( VPP ) : 
a 
VEP = + b 
_ La valeur Prédictive Négative ( VPN ) : 
d 
VE c + d 


Le pourcentage des biens classés 


d 
ou précision diagnostique ( PBC ) = 


a + 
N 


La Sensibilité et la Spécifité ne sont évidemment pas 


indépendantes , et toute augmentation de l'une entraine 


une diminution de l'autre . 
Ainsi , on n'aura pas intérêt à pousser la sensibilité 


N présente la maladie M 


un examen à la recherche 


SePresence d'une image pulmonaire anormale à la 
radio systématique de la médecine du travail. 


d'une technique trop loin , sous peine de voir sa spécificité 
pour la maladie étudiée , chuter beaucoup trop , et ainsi 


devenir inutilisable . 
La VPP peut être assimilée à la probabilité que , dans 


une 


population où la fréquence de la maladie est P , un sujet 


présentant le signe S soit malade M+ . 
De même , la VPN est la probabilité qu'un sujet ne 
présentant pas le signe S soit un non-malade M- . 


On peut définir enfin un dernier indice 
le RiSque Relatif RSR = TPP 
“7 1-VPN 


Si RSR = k , celà veut dire que dans une population où 


le pourcentage de malades est p , un individu présentant 


le signe 5 ( 5+ ) a K fais plus de "chances" d'être 


malade qu'un individu ne présentant pas le sime 5 ( 3- 


). 


Laissons maintenant la HP41 digérer le programme suivant 


( il faudra disposer d'un module X-FUNCTIONS » mais il 
existe des solutions de remplacement }) . 
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01 LBL EMDII 40 ARCL X ARCL X 
CLRG STO #6 PROMPT 
T/ DONNEES PROMPT  LBL #4 
AVIEM RCL 94 TVPP,VPN,RSR ..% 
05 PSE RCL #2 AVIEW 
TN= ? RCL f4 CLA 
PROMPT + AON 
STO p# / STOP 
TS+ ET M+ TSP= AOFF 
19 PROMPT ARCL X ATOX 
STO f1 50 STO #7 X=9? 
TS+ ST M- PROMPT GTO ÿ1 
PROMPT RCL #1 XTOA 
STO #2 RCL #1 1 
TS- ET M+ RCL #2 AROT 
PROMPT à 5 
STO 93 / ALENG 
"S- ET M- TVPP= x) Y? 
PROMPT ARCL X GTO #9 
29 STO ÿ4 STO 98 ANTM 
" RESULTATS 60 PROMPT STO 13 
AVIEW RCL #4 1E-2 
PSE RCL ÿ3 x 
PSE RCL #4 STO #5 
RCL #1 + 2 
RCL ÿ3 / AROT 
+ TVPN= ATOX 
RCL 9ÿ ARCL X ATOX 
/ STO #9  CLST 
39 TPR= PROMPT ASTO X 
ARCL X 70 RCL ÿ1 SF 25 
STO #5 RCL 4 GTO IND X 
PROMPT + FC? 25 
RCL 91 RCL #9 GTO 99 
RCL 91 / LBLTRSR 
RCL ÿ3 y TPBCæ XEQ”' VPP 
+ 
/ 
TSE= 
XEQ” VPN RCL #5 Contenu des mémoires : 
RCL 19 = ROO = N 
1 RCL #7 RO1 = a ( S+ et M+ 
RCL 11 x RO2 = b S+ et M- 
_ ENTER? RO5 = c S— et M+ 
/ ENTER/ RO4 = d S— et M- 
TRSR 1 RO5 = PR prévalence 
FIX Ÿ RCL 96 RO6 = SE sensibilité 
ARCL 13 _ RO7 = SP spécificité 
TH%e= RCL #5 ROB = VPP 
FIX 2 x RO9 = VPN 
ARCL X + R1® = VPP ..% 
STO 12 / R11 = VPN ..% 
AVIEW T VPN R12 = RSR ..% 
RTN PIX ÿ R13 = ..% 
GTO #9 ARCL 13 
LBLTVPP T+% 
es : on Place mémoire du PRGM : 
x STO 11 364 bytes 
1 AVIEW 
RCL #7 RTN 
= GTO gg 
1 LBL #1 
RCL #5 180 END 
x ce ne 
ACL #6 
140 95 Utilisation du PRGM : 
+ XEQ EMDII affichage commentaire 
/ f DONNEES Introduire le 
TVPP exemple N= ? nb total de patients 
a 290 R/S S+ ET M+ Int. a 
< 99 R/S S+ ET M- Int. b 
+ 29 R/S S- ET M+ Int. c 
FIX 2 19 R/S S= ET M- Int; d 
RER X 89 R/S RESULTATS 
Se bs PRaÿ, 59 
Le R/S  SE-g,99 
GTO ## R/S SP=4, 80 


R/S VPP=#, 82 
15 re R/S  VPN=#,89 
7 R/S  PBCef, 85 
R/S  VPP,VPN,RSR x 
Le prem demande si vous avez à 
effectuer un problème de vpp vpn ou rsr avec un pourcentage 
de prévalence différent du PR calculé précédemment , pour 
le même échantillon d'individus . 
Si OUI : introduire en ALPHA VPP ou VPN ou RSR suivis 
d'un nombre de ff à 99 vour indiquer le nouveau vourcent. 
de FR. 


Le pragm refuse toute autre valeur et rerose la question 

en cas d'introduction illicite . 

Si vous demandez tout de suite la valeur de RSR ..%X le 
prgm calcule et affiche pendant 1 sec. VPP ,.% et VPN ..%X 
qui sont nécessaires à son calcul . 


exemple : avec l'échantillon précédemment calculé s 
vous voulez calculer le RiSque Relatif pour une prévalence 
PR à #,29 
en mode ALPHA sur lequel s'est placé le prem , 


vous répondez : RSR2ÿ et R/S 


N.B: TOUS LES CARACTERES ALPHANUMERIQUES QUE 
VOUS TAPEZ DOIVENT SE TOUCHER . LE PRGM 
REFUSE UNE CHAINE DE PLUS DE 5 CARACTERES 


le pram répond : VPP28%m 9,53 
VPN2#%= D, 97 
RSR2H%=@ 17,47 


Dans l'exemple choisi , cela signifie qu'un individu 
de la population N présentant le signe S pour une 
prévalence PR de #,29 a 17,5 fois plus de "chances" 
d'être atteint de la maladie M qu'un sujet ne présentant 
pas le signe S . 

Une nouvelle pression sur R/S et le prem redemande si 

un autre problème de VFF ou RSR ..% est à calculer . 

Pour dire non , il suffit de faire R/S sans rien écrire 
dans le registre ALPHA , 

Le prem EMDII ne vous dira pas "AU REVOIR" en se terminant 
et ne BEEPera pas non plus : ce n'est pas qu'il manque 

de courtoisie , c'est plutôt qu'en jouant avec mon nouveau 
module TIME j'ai saturé la mémoire avec toutes sortes 

de XYZALM ....sorry 


Ceci était mes dernières PROMPT ( Petites Recommendations 
Ordinaires de Manoeuvre de ce Programme Tordu !! ) 


H.P... j-p Hallès ( T41 ) 


errant 


Ce programme calcule les valeurs qui permet— 
tent de faire le traçage d'une développée de cy— 
lindre. Il suffit d'entrer À la demande, Le dia— 
mètre (diamètre extérieur ou moyen, les chaudron— 
niers s'y reconnafîtront), l'angle de coupe (voir 
croquis) et le nombre de tératrices (païr). 

Le label CUM (cumulé) donne chacune des va— 
leurs entre zéro et wg@ (cotes parallèles). 

Le label DBC (découpe) donne les valeurs sur 
chaque génératrice (de zéro à Tam ) pour la dé— 
coupe de la tôle, ou da gabarit. 

La 41 C' ne donne que La moitié de la courbe, 
le reste est faft par symétrie. 

Uæ exemple pour illustrer: @200 mm,12 divi— 

sions, &œ=15°. Paire R/S entré chaque valeur. 

T 186 Berto Martial 
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T184 Pierre Courbon 
5 place Foch 
58200 Cosne cours/Loire 


T185 Stéphane Saunier 
11 allée de la Source 
78480 Verneuil/Seine 


T186 Martial Berto 
9 rue d'Havange, Bure 
57710 Aumetz 


T187 Philippe Brikké 
3 chemin d'Eulmont 
54690 Lay St Christophe 


T188 Jean Piquois 
625 av du 4 Septembi: 
59500 Douai 


T189 Marc Chiffoleau 
8 rue Auber 
59046 Lille 


T190 André Holstenkamp 
BP33 
16700 Ruffec 


T191 Jean-François Pelanne 
60 rue St Placide 
75006 Paris 


T192 Jean-Christophe Benois 
40 rue de la République 
77210 Avon 


T193 Emmanuel Thiébaut 
41 rue de Gouvieux 
60500 Chantilly 


T194 Yves Lecluse 
27 chemin du Bord 
14440 Douvres la Délivrande 


T195 Nadine Molinié 
B av G. Pompidou 
31500 Toulouse 


1196 André Flédrich 
41 rue Constant Darras 
62430 Sallaumines 


T197 Serge Wallet 
N°20 impasse Lamartine 
78570 Andrésy 


T198 Philippe Girardet 
54 rue Pillet 
71000 Mâcon 


T199 Thierry Lemoine 
9 cité Gourien 
22000 St Brieuc 


T200 René Bégué 
"Sunset" Bd Prince de Galle 
64200 Biarritz 


T201 Pierre Edrei 
4 rue l'Evesque 
78200 Mantes La Jolie 


T202 Olivier Willm 

15 rue de Grignan 
13006 Marseille 

T203 Ludovic Boulanger 


T203 Ludovic Boulanger 
libis rue du Mal Leclerc 
89700 Tonnerre 


T204 Jean-Michel Renaudin 
19 av de Paris 
95290 L'Isle Adam 


T205 Gérard Gauny 
18 rue Jules Poncet 
Thierville 

55100 Verdun 


T206 Gilbert Tisserand 
42 av Gal de Gaulle 
75500 Chelles 


T207 Laux François 
Chemin des fontaines 
Férolles 

77580 Crécy La Chapelle 


T208 Gustave Huyghebaert 
C/O B.E.Z. BP74 
LUBUMBASHI 

ZAIRE 

PAR_AVION 

T209 Chauchat 

5 rue de la Passerelle 
43000 Le Puy 


T210 Eric Angelini 
14 av ïlarianna 

Le Minerva 

06000 Nice 


T211 Pierre Picheret 
Calmon Aiguefonde 
81200 Mazamet 


T212 Jean-Jacques Dhénin 
4 rue Poulletier 
75004 Paris 


T213 Philippe Descamps 
Allée P. Picasso 
77 Damary Les Lys 


T214 Claude Binovsky 
9 place A. Renoir 
31130 Lasbordes Balma 


t T215 François Rideau 
6 rue Augustin Thierry 
75019 Paris 


T216 Philippe Gerber 
5 rue d'Aubervilliers 
75018 Paris 


T217 Jean-Claude Vandevelde 


BSL Garonne 

Bureau Central Naval 
75200 Paris Naval 
PAR AVION 


T218 Jean-Claude Nageleisen 


6 rue Delacroix 
25230 Seloncourt 


T219 Dominique Journet 
5 bd de Brandebourg 
94200 Ivry/Seine 


T220 Claude Maréchal 
Le Fief, 3 rue d'Anjou 
94000 Créteil 


T221 Guy Le Roux 


50 bis rue du Colonel Fabien 


78500 Sartrouville 


T222 Georges Biagini 

5 rue du Chateau 

13430 Aureille/Eyguières 
8 

T223 Hubert Naudot 

7bis Av Marceau 

92700 Colombes 


T224 Max Auzende 


Les Mazets Bd Ste Geneviève 


82130 La Garde 


T225 Dominique Jallier 
CAMICO BP1177 
Ouagadougou 

Haute Volta 

PAR_AVION 

T226 Joseph Leca 

24 rue Caffarelli 
06000 Nic 


T227 Maurice Farouilh 
4 av de l'Europe 
68590 St Hyppolyte 


T228 jean-Marc Cluzeau 
St Roch Mériadec 
56400 Auray 


T229 Daniel Odos 
Le Mollaret 
38880 Autrans 


T230 Michel Luyet 
4 av Jules Crosnier 
CH-1206 Genève 


T231 Serge Beaufils 
33 rue de Balleroy 
14330 Le Mollay Littry 


T232 Yves Mainguy 

Le Florence 

23 Bd de la Corne d'Or 
06230 Villefranche/Mer 


T233 Marc Chaussard 
Les Joigneaux 
45320 Coutenay 


T234 Myriam Joly 
2 Bd Alexis Carrel 
95200 Sarcelles 


T235 André Savary 
26 rue Voltaire 
CH-1201 Genève 
SUISSE 

T236 Marcel Boudoux 
57 av H, Barbusse 


95400 Arnouville les Gonesses 


T237 Paul Blanc 
Av de St Disdille 
74200 Thonon 


T238 Michel Wiellant 
9 rue A. Gautier 
49000 Angers 


T239 Jean-Loup Houdry 
51 bd Murat 
75016 Paris 


T240 Alain Mistral 
48 Rue du Nord 
13990 Fontvieille 


T241 Jean-Paul Horneker 
9 rue de l'Eglise 
Oberschaeffolsheim 
67200 Strasbourg 


T242 Eric Pellerin 
2 rue Ricquebourg 
92160 Antony 


T243 Michel Decourtit 
Av des Fauvettes 2 A 
B-1950 Kraainem 


T244 Richard Martin43 rue 
Victor Hugo 

BP12 

84100 Orange 


T245 Guy Lacroix 
127 B rue de la Pagère 
69500 Bron 


T246 Jaroslav Jachym 
8 rue Paul Bert 
90000 Belfort 


T247 Yves Rayrolle 
2 av de la source 


94120 Nogent / Marne 


T248 Georges Kuntz 
5 rue d'Amboise 
67000 Strasbourg 


T249 Christian Coste 
14 rue des Pavillons 
92800 Puteaux 


T250 Jean Fèvre 
100 rue Claude Decaen 
75012 Paris 


T251 Philippe Luciani 
4 rue Edouard VII 
34100 Montpellier 
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T252 Nicolas Kisselhoff 
47 av Verdier 
92120 Montrouge 


T253 Laurent Marcos 
236 rue Jean Mermoz 
33320 Eysines Gironde 


T254 Pierre Lavedrine 
Le Cabuchon 
Lotissement Bere-Viste 
Serres Morlaas 

64160 Morlaas 


T255 François Rosset 
18 rue de l'aigle, esc B 
392250 La Garenne Colombe 


T256 Christophe Travers 
Le pont d'Ohin 
35690 Acigné 


T257 Jean-Claude Moulis 
30 rue des arbustes 
31500 Toulouse 


T258 Yvon Goubil 
42 rue Pen An Stang 
29000 Quimper 


T259 Henri Bourboulon 
156 Av de la Libération 
59140 Dunkerque 


T260 Thierry Servais 
79 rue des Landrecies 
59360 Le Cateau 


T261 Franck Devienne 
32 rue R. Salengro 
Blendecques 

62570 Wizennes 


T262 Edgard Giacomini 
17 rue Henri Muret 
78650 Beynes 


T263 Patrice Nolin 
68 rue de Metz 
57190 Florange 


T264 Daniel Landais 
8 rue Ravel 
51000 Courtissol 


T265 Jean-Claude Gervaz 
Chemin du Polny 

CH-1066 Epalinges 
SUISSE 

T266 Stéphane Bartial 

2 rue Grande 

89340 Villeneuve La Guyard 
T267 Neil Mc Naughton 

33 rue Massenet 

92310 Sèvres 


T268 Louis Manet 
22 bis rue Berlioz 
31130 balma 


T269 Dominique Calvo 
15 rue Francoeur 
91170 Viry-Chatillon 


T270 Serge Vaudenay 
62 av Ardouin B3 
94420 Le Plessis Trévise 


T271 Jean-François Vincent 
22 immeuble du Parc 
12300 Decazeville 


T272 Guy Dupraz 

27 rue du Faubourg 
CH-1296 Soral-Genève 
SUISSE 

T273 Michel Coin 

96 av Mac Mahon 
54000 Nancy 


T274 Claude Ottavi 
17 bd Cieussa 
13007 Marseille 


T92 Roger Le Ny 
16 rue Georges Meynier B12 
44300 Nantes 


T93 Aimé Piérard 

Bd de l'Yser n°3 

6000 Charleroi 

BELGIQUE 

T94 Denis Laurichesse 

INSA av de Rangeuil ch 420 
R4 

31400 Toulouse 


T97 Olivier Richet 
1 Place W. Churchill 
92200 Neuilly/Seine 


T98 Albert Borios 
DDE 
81013 Albi Cedx 


T99 Rose-Marie Codaccioni 
2 av Jeanne d'arc 
13170 La Garotte 


Gérard Santraille 
T100 

10 rue Racine 
66160 Le Boulou 


T101 Marc Vincent 
7 rue Pruvot 
92170 Vanves 


T102 Edouard Cohen-Tannoudji 
ll rue Wagner 
93150 Blanc Mesnil 


T103 Pascal Cocard 
5 rue de la Saïda 
75015 Paris 


T104 Fabrice Haeusler 
à rue Ferdinand Bébel 
31500 Toulouse 


T195 Jacques Sirodot 
9 rue Dusenbach 
67500 ïiarienthal 


T106 Jacques Vaucelle 
"La Chasserie" 
35133 Romagné 


T107 Gérard Houziaux 
10 rue Cesar Frank 
78330 Fontenay le Fleury 


T108 René Pawlicki 
34 rue de Philippeville 
62220 CARVIN 


T109 Régis Revelliod 
15 rue du pré Brécel 
35400 St Mâlo 


T110 Philippe Raynaud 
294 résidence Percevalière 
38170 Seyssinet 


Tl1l1 Frederic Nedelec 
16 rue La Bruyère 
22000 St Brieuc 


T112 Olivier Le Roch 
51 rue du Bel Air 
17000 La Rochelle 


T113 Bernard Allaud 
Villa Bethanie 
Entraide 

97200 Fort de France 
PAR AVION 


T114 Dominique Colombani 
32 rue des Chardonnerets 
932160 Antony 


T11S Luc de Rancourt 
11 bd St Germain 
75005 Paris 


T116 Jean Durand 
5 rue G. Fauré 


28500 Vernouillet 


T117 Pierre David 
45 rue H. Barbusse 
91330 Yerres 


T118 Jean Bullukian 
64 rue Boileau 
69006 Lyon 


T119 Didier Cayrac 
22 rue Jules Ferry 
47300 Villeneuve / Lot 


T120 Bruno Tredez 
Champfleuri Bouvron 
44130 Blain 


T121 Pierre Scheerpereel 
660B Av de la République 
59800 Lille 


T122 Bernard Paul 
36 rue des Maisons Neuves 
91700 Ste Geneviève des bois 


T123 Gilbert Papin 
9 rue du Hameau de Bellevue 
91230 Montgeron 


T124 Jean-Jacques Jacquemotte 
59 rue Michel Body 

B-4330 Grâce Hollogne 
BELGIQUE 


T125 Michel Flandin 
16 rue A. Fallières 
63100 Ckermont Ferrand 


T126 Le Gallo Pierre 
17 rue Cardinet 
75017 Paris 


T127 Jean Philippe Boucherie 
10 rue Dr Barraud 
33000 Bordeaux 


T128 Lautru Pascal 
28 rue Jean Martin 
13005 Marseille 


T129 Pierre Epineuze 
55 rue de Panette 
27000 Evreux 


T130 Pierre Hébert 
14 bis rue des Vieilles 
25000 Besançon 


T131 Jean-Pierre Baudoin 
Lieu dit ‘Les Carabiniers" 
Castelnau d'estretefond 
31620 Fronton 


T132 Allain Moulinier 


Eisenbahnstr. 16 D76 
Offenburg-Rammersweier 
RFA 


T133 Michel Nicolas 
12 av Gabrielle 
52000 Chaumont 


T134 Daniel Connan 
152 Av J. Jaurès 
93500 Pantin 


T135 Jean-Michel Granger 
47 rue du repos 
69007 Lyon 


T136 Eric Gengoux 
8 rue de Furstenberg 
75006 Paris 


Roland Bruguières 
Les amandiers D3, montée 
20000 Ajaccio 


St Jean 


T138 Eric Denoyer 
61 rue Madame 
75006 Paris 


1139 “incent Herlicq 
3 rue Berteaux Dumas 
92200 Neuilly/seine 


PPC-T N 7 
SEPTEMBRE OCTOBRE 
1983 P28 


T140 Jean-Claude T162 Sylvain Naga 
40 av Wilson 10 rue Gaston Israël 
34230 Cachan 95880 Enghien les bains 


T141 Jean-Pierre 
142 Grand rue 
92380 Garches 


Indjehagopian T163 Claude Chaffanjon 
33 résidence du Bel Ebat 
78170 La Celle St Cloud 


T142 Patrice Droin 
10 Bd Malesherbes 
75008 Paris 


Ravier T164 Olivier Arbey 
34 av de la République 


94100 St Maur 


T165 Jean Thiberge 
70 rue de la Monesse 
92310 Sèvres 


T143 Olivier Diner 
33 av Mal Lyautey 
75016 Paris 

T166 Daniel Lurot 

24 rue du Mont St Pierre 
Elinghenferques 

62250 Marquise 


T144 Yves Alajouanine 
108 bis rue Hénon 
69004 Lyon 


T145 De Mangin 
11 av C. Coquelin 
75007 Paris 


T167 Jacques Weissenburger 
8 allée des hts de Chennevière 
94430 Chennevières 


T146 Yves Bergans T168 Jean-Claude Caty 
rue des Bruyères "Les Taillades" 

1 Rocher 

4940 Trooz 97110 Largentière 
BELGIQUE 


T169 Christian Desmigneux 
B rue Albert Camus 
71100 Châlon/Saone 


T147 Pierre Emmanuel Barris 
39 route de Paris 

78760 Pontchartrain 

J. Botte 

13 rue Pierrefond 

62223 St Laurent Blangy 


T148 Bruno Bosom 

10 av du grand Large 
66000 Perpignan 

T171 Jean Carré 

10 Rd Point du Senonais 
Cidex 89 boite 10 

77176 Savigny Le Temple 


149 Stéphane Barizien 
39 rue St Fargeau 
75020 Paris 


T150 Gabriel Gil 
44 chemin de Barberet 
69700 Givors 


T172 André Guilmard 
13 rue de l'Arc de Triomphe 
75017 Paris 


T151 Christian Sapin 
Le Consul/Exelsia 
Chemin Rabiac Estagnol 
06600 Antibes 


T173 J Charles Pinatel 
Villa "Lou Chabot" 
694 promenade A. Camus 


06190 Roquebrune Cap Martin 
T152 Bruno Piguet 


Lycée Stendhal 
1 rue Blanchard 
38027 Grenoble 


T174 Patrick Barbier 
17 rue des Cerisiers 
92700 Colombes 


T153 Gilbert Stampfler 
79 av d'Altkirch 
68100 Mulhouse 


T175 Jean-Claude Bornes 
10 allée de la Brie 
Lisses 

91000 Evry 

T154 Antonio Manuel Correia 
Av Joao XXI 364 

4700 Braga 


PORTUGAL 


T176 Jaques Hamelin 
39 av E. Vaillant 
92100 Boulogne 


T155 Bruno Causse 
82 rue Gabriel Péri 
91270 Vigneux/Seine 


T177 Chauvineau 
C/0 D3 Valmante 
13009 Marseille 


T156 Jean Furgerot 
68 rue Gabriel Péri 
92120 Montrouge 


T178 Robert Schwartz 
141 av. Carnot 
93140 Bondy 


T157 Pierre Georgelin 
16 bd Victor Hugo 
78100 St Germain en 


T179 Bernard Piron 

30 rue de la Guadeloupe 
Laye 31600 Muret 
T158 Pierre Eric 
"Les Granges" 

2 allée des Vosges 
38130 Echirolles 


Verney T180 Serge Nicolas 


Dr;Hopital du Raincy 
73 Bd de l'Ouest 
93340 Le Raincy 


T159 Jean Reibel 
9 sq V. Flemming 
92350 Le Plessis 


T181 Patrick Duchemin 
35 rue Marceau 


Robinson 94120 Fontenay/bois 


T150 Philippe Poursel 
Le Zervantes BtC apt 
Av du père Soulas 
34000 Montpellier 


T182 Christophe Dumonet 
16 rue du Casse Lanterne 
Fresnay en thelle 
60530 Neuilly en 


100 


thelle 


T161 Didier ClaudeProd'hom T183 Etienne Poupée 

18b rte du Curson SICAPE 

CH-1197 Prangin/Vd 22 av de la République 
SUISSE 


94120 Fontenay/bois 


T1 Jean-Daniel Dodin 
77 rue du Cagire 
31100 Toulouse 


T2 Jean-Louis Bravo 
3 allée des Boutons 
apt 17 

31700 Blagnac 


d'oür 


T3 Jean-Louis Assié 
275 route de Seysse 
apt. 284 

31100 Toulouse 


Bat A8 


T4 Pierre Prêtre 
38 av Camille Flammarion 
31500 Toulouse 


TS André Blosse 
16 av. de Gascogne 
31170 Tournefeuille 


T6 Frédérice Darin 

SBMP 22 Bd de Strasbourg 
BP 383 

31007 Toulouse Cedex 


T7 Hubert Lacroix 

28 allée des platanes 
Villeneuve Tolosane 
31270 Cugnaux 


T8 Janick Taillandier 
9 rue Delezenne 
59000 Lille 


T9 Mc Gechie John 
po Box 512 

Ringwood Victoria 
3134 Australie 
PAR_AVION 

T10 Pierre Sautier 
77 allée de Brienne 
31000 Toulouse 


Tl11 Jean Luc Basso 
4 rue Jacques Darré 
31300 Toulouse 


T12 Olivier Montarsolo 
Chem. Eng. Dept 

USCB Santa Barbara 

CA 93106 USA 
PAR_AVION 

T13 Olivier Monachon 
19 rue de Coulmier 
31000 Toulouse 


Tl4 Thierry Perthuy 
18 av France Lanord 
54600 Villers les Nancy 


T15 Jean-François Sibille 
Résidence du pays d'Oc 
rue des Génets 

31500 Toulouse 


T16 Alain Delebecque 
76 chemin du Calquet 
Ecole du Cadastre 

31080 Toulouse cedex 


T17 Patrick Benet 
70 rue St Roch apt 5 bat X 
31 Toulouse 


T18 Jean-Yves Pasquier 
apt 10 

2 rue Grèce 

31000 Toulouse 


T19 Roland Schuttler 
Ambassade de France, 
37 Quai d'Orsay 
75002 Paris 


Damas 


T20 Olivier Guerch 
"Le Fournier" Rebigue 
31320 Castanet 


T22 Gilles Barret 
92 av de Muret 
31390 Toulouse 


T23 Jean-Marie Hanon 
17 rue Collot 
77120 Coulomier 


T24 Michel Delmas 
4 les bois du Cerf 
91450 Etiolles 


T25 Philippe Debaque 
157 rue de Meaux 
93410 Vaujours 


T26 André Houdayer 
Parc Ducup Allée 

Route de Prades 

66000 Perpignan 


des Frènes 


T27 Dumaine 
262 rue de la Chevalerie 
60230 Chambly 


T28 Christian Bailleul 
Collège Jean-Rostand 

3 Chemin de Reumont 

59360 Le Cateau Cambrésis 


T29 Jean-Pierre Reynier 
Bourg de Montrem 
24110 Saint Astier 


T30 François Dely 
9 rue des Sauges 
50200 Coutances 


T31 Henri Moulins 
1 rue Port feu Hugon A2 
37000 Tours 


T32 Paul Chanfreau 
Saint Médard 
31360 St Martory 


T33 Damien Debril 
38 rue du 8 Mai 1945 
59190 Hazebrouk 


T34 Bruno Klein 
35 rue du Fort Louis 
59140 Dunkerque 


T35 Frank Lebastard 
10 rue de la Jalousie 
35600 Redon 


Jean-Pierre Ducasse 
10 Bd St Vincent de Paul 
40990 St Paul les Dax 


T37 Raphaël Horak 
49 rue Vaneau 
75007 Paris 


T39 Eric Doineau 
4 rue des Chevalleries 
37230 Fondettes 


T4O Lelièvre Dominique 
100 rue d'Estienne d'Orves 
76620 Le Havre 


T4l J-P Hallès 
55 chemin de la Glacière 
69600 Oullins 


Jean-Michel Charvier 
15 rue de l'industrie 
74150 Rumilly 


T43 Pierre Lamy 
12 rue des Carpeaux 
92400 Courbevoie 


T44 André Souche 
21 Av. E. Bertin Sans 
34100 “ontpellier 


Bernard Menet 
des Antignans 
Nyons 


TA45 
73 rue 
26110 


T46 André Clauss 

(Gestion +t comptabilité) 
5 rue de Cernay 

67100 Strasbourg 


T47 Laurent Pot 
7 rue du Four 
60300 Senlis 


T49 J. Damian: 
6/418 Allée Maxime 
94120 Fontenay/bois 


Sorki 


T50 Yves Cathala 
6 rue Eugène Sue 
31400 Toulouse 


TS1 Jean-Louis Bregeault 
Villa ker Louis 

rue de la gare 

50510 Cerences 


TS52 Bruno Senez 
60 chemin de la 
69600 Oullins 


Glacière 


T53 André Mora 
12 rue Gaubert 
24200 Sarlat 
la Caneda 


TS54 Roger Berthelet 
16 square du Pont de Sèvre 
92100 Boulogne Billancourt 


TS5 Louis Raymond 
20 rue de Blagny 
08110 Carignan 


T56 Patrick Barrabé 
2 place Valladier 
57000 Metz 


T57 Daniel Georgelin 
7 av du Gal de Gaulle 
56170 Quiberon 


T58 Claude Charnay 
31 rue Gilbert Privat 
24000 Périgeux 


TS9 Daniel Meyer 
avenue jardin Ecole 13 
4820 Disons 

BELGIQUE 

T60 Paul Perona 
Lotissement Beillet 

2 rue Athos 

40000 Mont de Marsan 


T61 Philippe Bailly 
Fontagnères 
31160 Aspet 


T62 Olivier Pougeon 
6 Bd Chanard 
56170 Quiberon 


T63 Luc Sponga 
7 rue Auguste Ravier 
38100 Grenoble 


T64 Pierre Lavillaureix 
1 place Albert premier 
67000 Strasbourg 


T65 Marco Benedetti 

132 rue Staempfli 

2503 Bienne 

SUISSE 

T66 Alain Picard 

266 rue de l'Univergité 
84200 Carpentras 


T67 Denis Demaugre 
Résidence Le Béryl/Domaine 
de l'émeraude 

Bd Pagnol 
06700 St Laurent de Var 
T68 Geslin 

10 rue Küss 

75013 Paris 


T69 Philippe 
39 Chemin de 
1010 Lausanne 


Romanasco 
Grand Vennes 
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T70 Leroy 

12 rue du 18 Mai 
Givenchy en Gohelle 
62580 Vimy 


T71 Jean Boschat 
4 rue Descartes 
59760 Grande Synthe 


T72 José Pividal 
Lieu Dit St Martin 
69700 Echalas 


T73 Jean-Pierre Lesaffre 
50 rue de Lille 
59350 St André 


T74 Denis Porcheron 
51 Bd des Candolles 
La Penne sur Huveaune 
13400 Aubagne 


T75 Richard Nguyen Van Nuoï 
68 av des Moulins 
83200 Toulon 


T76 

Eric Piérunek 

10 allée de l'Abbaye 
Parc Vauban 

59380 Bergues 


T77 Jean-Alain Thoma 
4bis av J-Jaurès 
70100 Gray 


T 78 Laurent Dané 
52 Le Hameau d'Epsom/ Bouliac 
33270 Floirac 


T80 Didier Jehl 

Apt N°8 Résidence les 
Hochettes 

9 rue Utrillo 

62000 Arras 


T81 Serge Garcia 
7 rue des filles du Calvaire 
75003 Paris 


T82 Philippe De Jaegher 
2 rue André Chénier 
91000 Evry 


T83 Alain Villatte 
7 rue Alphonsine 
92160 Anthony 


T84 François Boisson 
La Glacière 

Le plan d'Aups 

83640 Saint Zacharie 


T85 Eric Cossevin 
3 rue du Cat Fillol 
17000 La Rochelle 


T86 Marcel Trimborn 

18 rue des Jardins 

57990 Nousseviller St Nabor 
Hundling 


T87 Yves Cheneval 

88 av de Vaudagne 

CH 1217 Meyrin 

Genève 

SUISSE 

T88 François Eckert 

45 rue du Docteur Babin 
5t Germain les Arpajon 
91290 Arpajon 


T89 René Legrand 
62 Allée des Demoiselles 
31400 Toulouse 


T90 Daniel Vidal 
70 alles de la Concorde 
93130 Noisy le Sec 


T91 Dominique Froeliger 
2 cour du moulin Zorn 


57000 Strasbourg 


doi 8ACK ISSUE LIST 
JANUARY 1983 


This table summarizes the grouping of back issues of the Calculator Journal of PPC. This table covers the “HP-41 Years” of 1979 to the present. Earlier 
issues are available, send SASE for the list or call (714) 754-6226 for group costs. The groups are priced by region because of paostade Costs. Region N 
is U.S., Canada and Mexico; Region 1 is Central America and the Caribbean; Region 2 is Europe and South America; Region 3 is Asia, Africa and Israel. 


Group and Cost (Postpaid) To qualify for PPC Member rate include your PPC Member number. 








Non Issue 
Group Region Member Member | Issue Month Year Pages Index M/L Photos Attach Contents /Remarks 
VENT  J/F/M 1979 40 1P 2 No 33 ex. Times; 250 place e, Princeps Puzzle 
V6EN2 April 1979 20 1p 7 No Tape deck time, Prog. Tax tables, 240D SQ.RT. 
XV 0 7.50 6.00 V6EN3 May-June 1979 32 #10 èp No No Mastered A11 Machines Awarded 67 Curve fittina, Procal Rpt., 5100 
1 8.00 6.35 ap RPN Sim., 29C Cryptosym 
(89p) 2 9.20 7.35 V6EN4 July 1979 16 1p 2 No 41C ANNOUNCFD, Compared to 67, Specifications, Iranslat 
3 9.65 7.70 V6ENS Aug 1979 32 ep 1 No 34C ANNOUNCED, 41C-Flags, S. Display Char Bugs, Hextable; Key 
Notes Index 
VEN6 Sep 1979 32 2p 16 6p 41C Inside Photos, Schematics, Status Registers, PPC Conference 
HP Battery Info. B4&5, Subroutine Efficiency. 
V6EN7 Oct 1979 48 #11 lp 27 No 41C CR Photos, 29C Sort & RN'S, Chapter listina, RPN improvements 
4p JT, 41 "Wishes" true, 41 Interface, 41C B. B1k. Box program. 
V6NB  Nov-Dec 1979 32 1p No No Solving friangles, New Tones, 290 Curve fitting, S. Perspective 
Drawings, BUG Update, 41C Sorts. 
VINIL Jan 1980 32 2p 1 2p HP-85 Announced, Keyboards, 41C Tones. 41 Biorythm plots, 34 
Curve Fittinq, CONTEXT, Complex stack 
VINS Feb-Mar 1980 56 ep 18 No Manual Quiz, Income Taxes, 41 Best Fit, 41C AC Adapter, 41C 
Tones (11), Morse Code, Hi Res Plot 
NIN3 April 1980 32 2p No ep Synthetic key assign, Practical B2. Three Triangle Approaches, 
Data Processing,eGOBEEP, 41C Port Bus 
VIN4 May 1980 32 2p No No Complex operations, quicksort, CE#6-key boards, curtain raiser, 
BUG 3, Byte Jumping, Cybernetic Hexapawn 
VINS June 1980 64 1p 14 No Largest Issue to date, dedicated to Barcodes, bartones, 1st bar- 
code prgms., Mid-West Conf. photos. 
VIN6 Jul-Aug 1980 48 1p No No HP-34 data space, 59 calendar challenge met, largest F. Reading 
column, 82143 Print buffer, Type 5 barcode Hex tables, Byte- 
_Jumping_cookbook, barcode book proposed. ne. 
VIN7 Sep 1980 32 èp 3 No HP Service ROM, Barcode Typewriter, ROM Synth. list, Type 8 Bar- 
code table, 67 Plotter, 67 Mag Card bits. 
VIN8 Oct 1980 32 2p 2 No KU, AFK, KA, CKA, STAX, RLAX etc., in barcode, Append Nulls 
barcode, Calendar Race. STAR TREK, ST-6 
VIN9 Nov 1980 32 èp No No 4 TREK, “"E" barcodes, ROM Math Instr., Synth text barcodes, BUG 9. 
FOTOMAT, COPIER FINAL, 3D Tic-Tac-Toe 
VINI10O Dec 1980 24 1p No No HP 2 Ltr Labels, ROM listings. "LB" in barcode 
V&N1 dJan-Feb 1981 32 ip 12 No ROM R. LIST, Romping thru ROM, Installing Modules inside the 


HP-41C, HP-34 Data Space, QUAD Page Switching, HP-41 Checkers 
Tiger-Wand Cartoon, PRGM Byte Jumpers 
VBN2  Mar-Apr 1981 48 1p 5 No Name or Number? French n Times, HP-25 Hangman, Instruction tim- 
ing, Checkers in Bar Code. BASIC Bar Code Program, Friendly Com- 
petition, GEORGE LITHO. 


V&N3 May 1981 32 ep No No T Shirt, Matrix Routines Exploited, Morse Code improved, 
Othello 2, Alpha Data Packing, Perspective Plot, + Nulls, E&F 
WANDS, CALC, RNG'S. HP67-806 Computer. Pocket Solar System. 

VBN4 June 1981 32 No No No Australian Issue; Editorial Policy: 41 Function timing; Print- 
ing ROM Contents; Key Assignments, Everything and Merging; 8 DEG 
Regression. 

V&NS July 1981 32 1p No No HP-41 at ?X SPEED, BUG 8 Synthetics, More BUG 9, SST BUGS, 
Fn Byte Maskers, P Register. WAND Digitizer, Fastest Factor 
Finder B. Corner-Synthetic Prog. 41 Cassette Interface 





VAN6  Aug-Dec 1981 80 2p 5 3p SP and HP Users Library, Byte Grabber. More 41 Speed UP, 





0 
1 41 Virtual Memory, Fastest 1,000 PI, Mini-chess, 11 Curves- 
è Best Fit, 34C Smith Chart, 8 Queens, ROM overlays, HP-IL Press 
3 Releases, 67/97 Acid-Base Species Distribution. 
0 VON1 Jan-Feb 198 32 2p 1] No HP LIB Contest, ROM shipping photos, 2,900D e, First Data Frame, 
1 Compiled sans label bar code, Matrix Simplex, NOMAS, Rubiks' 
2 VIN? March 1982 40 1p No No Page switchinq, Data Packing, 12C Review, MCODE, 41 Display, Ex. 
3 Mem. Organization, CRASH Recovery Tips, Q Register Calendars, RTNS 
VON3 April 1982 48 1p No No NOMAS, Space Shuttle, Jacobi Matrix, Cassette Controller-Modem, 
Ex Mem Topics, MLDL,CVD Column-The Library, ROM IT proposed, 
67/97 Plotting, Rubiks' bar code. 
V9IN4 May/June 1982 96 ep 7 No 12C NOTES, Save & Recall Timer Alarms, 41 Instr. Structures, 
July Long G10's & XEQ's, 42 Wish List, MLDL Debugqging, TI-88, 16C 


Impressions, ROM II, Photo Zone Calculations, More File Handlinq 
Cassette Tape Format, 82162A Bar Code, MKX, 59 B:ack Jack, B. 
Corner-Video Interface, Beam Graphics using @, UIAM'S Con- 
jecture, Data Handling 16C NOTES, DATA FRAME, 41 Solar/Lunar 
Eclipses, Public Key Cryptography, HP-4]1 QUEUE, Stock Portfolio 
Carrying Case Problem. 

VYNS Aug 1982 32 2p 5 No HP-75 Instruction Set, 41 Music Printer, Port Addressinqg, 59 
Superplot, RPN Perspective, 41 System Carrying Case. 













VIN6 Sept 1982 40 2p 30 No 82143A Plotting Mod, 16€ NOTES, PPC Fast Coast Conference Photos, 
75C Review, CES Merting Photos, UAM's Conjecture, TI-55 Syn- 
thetics, 59 to 41 Compiler, 1/0 Buffers & PPC ROM ALPHA Routines, 
Panasonic HHC. 

VIN7 Oct-Nov 1982 64 2p 7 No Sim. eGOBTEP, Complex #'5, Time Mod & 1/0 Buffers, {x. Trigger 
for 3468, 821634 Box, VIVA Life, LIN-FXP, Curve Fit in Bio. Sci., 
EPROM 5, Adv. of MCOPF. ASCII Files on Magnetic Cards, EFM 
verify Bua, Matrix Least Squares, MKX/ASG [mproved, 75 fvaluation, 

Order by Group - US$ only. TONE Duration, Byte Counting, Chiming Clock. Improved Save & 

PPC Get Key Assiqnments, ROM II, UK Conf. Notes, HP-IL Instructions, 

2545 M. Camden Place VIRE . re | 

Santa Ana, CA 92704 USA VON Dec 1982 32 ep No No 41 Plotting, Choleshi tquation, 2x41 Tips, Beginners Corner 

Video, Bar Coded Programs, 
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PPC-T N° 
77 rue du Cagire 
BULLETIN D'ADHESION 31100 Toulouse 
FRANCE 
facultatif: 
NON Profession 
Prenons Adresse professionnelle 





ADRESSE 





nan e eee 


Pays Téléphone professionnel : 

Téléphone: 16(  ): 2 16( ): 5 © 

Ecrire clairement en aajuscules; indiquez l'adresse à laquelle vous souhaitez recevoir les 
publications en la soulignant; soulignez en rouge les mentions que vous ne désirez pas voir 
publiées. 


Sujets d'interet, domaines préférentiels d'utilisation de votre calculatrice: (poursuivez au verso 


au besoin) 





Je dispose des matériels informatiques suivants:(type et modèle, date d'achat, n° de série si 
possible) 


J'ai eu connaissance de PPC-T par: 

Je demande à rejoindre PPC-T dans le seul but d'échanger des programmes et des idées sur la 
programmation des calculatrices de poche. Mes seules obligations sont d'aider les nouveaux venus, 
d'encourager l'information sur les activités de PPC-T et d'offrir mon expérience aux autres 
adhérents. J'ai compris que l'adhésion à PPC-T entraine une participation active à l'échange 
d'informations. 


Date signature 


paiement par: Chèque CCP mandat espèces à l'ordre de PPC-T 
Votre adhésion sera prise en compte à réception par PPC-T du présent bulletin correctement rempli. 


Ne rien écrire ci-dessous reservé à l'adainistration 
Date créa année cot 1 2 3 k 5 6 
à C JF MA NJ JA so ND 
PPC US 83 L L : L . : 
84 ë L : L _ 
CR  : 
86 


PPC-T N 7 
SEPTEMBRE OCTOBRE 
1983 P31 


L'ORGANISATION D E PP C TOULOUSE 
Cette page sera publiée dans chaque numéro de PPC-T. Seuls les produits répertoriés dans le dernier numéro du journal 
sont disponibles. PPC-T étant une association sans but lucratif, elle ne fait pas de bénéfice, elle est administrée par 
des bénévoles et ses produits et services sont réservés aux adhérents. La marge prise sur les produits vendus est 
minimale et destinée à couvrir les frais de fonctionnement. Une grande partie de nos produits vient des Etats Unis et 
leur prix est donc soumis aux variations du $. Consultez le dernier numéro pour connaitre le prix courant. En cas de 
variation brusque du $ nous nous réservons le droit de demander un supplément. 
ASSOCIATION PPC-T 
Association à but non lucratif (loi de 1901), PPC-T accepte des adhérents dans toute la France et à l'étranger. La 
cotisation, abonnement au journal inclu (6 numéros par an) est de: France et Europe 100 F (français), DOM-TOM et reste 
du monde par avion 150 F (français). Règlements par chèques et mandats postaux à l'ordre de PPC-T (eurochèques acceptés, 
mandats postaux uniquement pour les DOM-TOM). L'inscription prend effet au premier jour du bimestre qui précède la 
réception du bulletin d'adhésion (ler Janvier, ler Mars...). 
RESPONSABLES D E PPC=T 
Président: Jean-Daniel Dodin (T1) 77 rue du Cagire 31100 Toulouse (nouvelles adhésions, journaux de l'année en cours, 
édition du journal, réception des articles). 
Trésorier: Jeu Trançois Sibille (T15) Résidence du pays d'Oc, rue des Genets 31500 Toulouse (renouvellement 
d'adhésions, problèmes financiers) 
Trésorier adjoint: Jean-Pierre Baudoin (T131) Lieu dit "Les Carabiniers" Castelnau d'Estretefond 31620 Fronton (fichier) 
Secrétaire: Jean-Luc Basso (T11) 4 rue Jacques Darré 31300 Toulouse (coordination des groupes locaux, compte rendus de 
réunions) 
Secrétaire adjoint: Gilles Barret (T22) 92 av de Muret 31300 Toulouse (photocopies) 
Secrétaire adjoint: Jean-Yves Pasquier (T18) Apt. 10, 2 rue de grèce 31000 Toulouse (Librairie et coopérative) 
Programmathèque: Damien Debril (T33) 38 rue du 8 Mai 1945 59190 Hazebrouk 
Coordinateurs régionaux: 
Bretagne: Frank Lebastard (T35) 10 rue de la Jalousie 35600 REDON 


Paris: Pierre David (T353) 33 bd St Martin 75003 Paris et Edouard Cohen-Tannoudji (T102) 11 rue Wagner 93150 Blanc 
Mesnil 

Lorraine: Thierry Perthuy 18 av France Lanord 54600 Villers les Nancy 

Des coordinateurs_ sont recherchés pour toutes les régions (démonstrations, collections de journaux, réunions à 
organiser...) 


LISE LMMER 2 2 2 M M 2 2 2 M D = M M M M M 2 2 OL 2 OM 2 OM M OL 2 OZ Æ SO ee = = 2 = = 2 = = = = = 
Bon de commande anciens journaux: à photocopier et à envoyer avec le règlement à l'ordre de PPC-T, à J-D Dodin 77 rue du 


Cagire 31100 Toulouse. Prix franco de port surface; avion ajouter 10% 
N°3 à 15F N°4 à 15F N°S à 15F N°6 à 20F N°7 à 20F 


ETES ERALLIAIEIEE LEE LAELLSELLEMENEILLXLL ELLE LR An me 2 2 = = = = = = 


> 


Bon de commande Librairie et coopérative: à photocopier et à envoyer avec le règlement à l'ordre de PPC-T à Jean-Yves 
Pasquier Apt.10, 2 rue de Grèce 31000 Toulouse. Prix franco de port surface; avion ajouter 10%. 


L1l: William Kolb, Curve fitting 2°édition 120F L2:John Dearing, Calculator Tips and Routines 130F 

La: J-D Dodin, Au fond de la HP 4]C 80F L5: Keith Jarett, Synthetic programming made easy 130F 
L6: Janick Taillandier, Autour de la boucle 80F L7 109 programas R. Farrando 65F 

L8: An easy Course (HP41) Wadman et Coffin 170F C1 carte des codes HP 41 couleur 25F 

C3: overlay en bristol perforé, les 10 30F C7:cartes magnétiques HP avec classeur, les 80 250F 


C8: classeur de cartes magnétiques de poche 20F 
EEE E=LALMENLLLMLELMSLLMMEMELLLLXELSERAE- AS = EE Z==-- 2 = = = = - 


Bon de commande photocopies: à photocopier et à envoyer avec le règlement à l'ordre de PPC-T à Gilles Barret 92 av. de 
uret 21300 Toulouse. Prix franco de port surface; avion ajouter 10%. 


P2: PPC East cost conference (Avril 82) 50F P7: Microcode PPC: tous les roms HP jusqu'en 82 120F 
P8: ‘icrocode HP (ROMs internes, version HP) 220F P9: documentation sur HP-IL Monitor 10F 

210: trésors cachés de la HP41C (l1'OI) 15F Pil: manuel technique HP4IC 60F 

P12: manuel du convertisseur HP-IL 25F P13: PPC Southwest Conference (Janvier 83) 35F 

P14: HP Journal Janvier 83 (HP-IL) en anglais 20F P15: Dossier Hard (articles jusqu'en 82) 45F 


P16: Album PPC-T 82 (lère année du journal) S5OF 


BORDEREAU DE SOUMISSION D' ARTICLE 


A photocopier ou à recopier et à joindre à toutes les propositions d'article. Ceci est destiné à permettre un classement 
plus rationnel des articles du journal, comme le demande la grande majorité des adhérents. Soyez coopératifs, merci. 


N°T: NOM: PRENOM: ADRESSE 





L'article ci-joint doit, s'il est publié figurer dans la rubrique:(entourer le nom concerné) : 


Coin des U. PRO nop Trucs et astuces sur le marché microcode programmes applications 
petites annonces Réactions Divers autre rubrique: 





I1 concerne la machine: 


HP10 HP11 HP12 HP15 HP16 HP41 HP75 HP85 AUTRE HP: AUTRE MARQUE: 


ACCESSOIRE REF : 


La publication des articles est soumise aux circonstances, selon l'appréciation de l'éditeur. Les articles proposés ne 
sont pas renvoyés. Toujours nous envoyer l'original, conserver la photocopie pour vous. Format: tapé à la machine sur 
13,5 cm de large, avec un ruban trés noir, simple interligne, recto seul. A la main, calligraphié sur feuille quadrillée 
5xS sans interligne, largeur 13,5 cm maxi, recto seul, à l'encre noire. N'utilisez pas de couleur autre que le noir 
‘nous n'imprimons pas encore, hélas, en quadrichromie! Les dessins à l'encre de chine sont fortement rechérchés 
‘avez-vous de l'humour?),. 
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